$ perl -e'my $c=2; my $d=3; $c^=$d^=$c^=$d; print $c,$d,$/'
32
$