$ perl -e'$a="a"; $b="bbb"; $a^=$b; $b^=$a; $a^=$b; print "/$a/,/$b/\n"; print length($a),"\n"; print length($b),"\n"'
/bbb/,/a/
3
3