#!/usr/bin/perl -n
($a, $b) = split;
print "$a = other.$b; other.$b = self.$b; self.$b = $a;\n"