$ perl -wle '$a=0; $a ^= 1; print $a'
1
$ perl -wle '$a=1; $a ^= 1; print $a'
0