$ perl -le'$x = "41"; 0+$x; print for ("$x" ^ "3"), ($x ^ "3")'
1
42