$a = 598; $b = 77; $a = $a ^ $b; $b = $a ^ $b; $a = $a ^ $b; print "$a $b\n";