perl -Mutf8 -e "$x = qq(42); if( 0+$x ) {}; if ($x ^ $x) {print qq(string\n);}"