Select Code to Download

use strict;
use warnings;
...
ok !($x ^ $x), '$x is a number, ^';
ok $y ^ $y, '$y is a string, ^';
ok $z ^ $z, '$z is a string, ^';

$ perl isnum.t
1..6
...
ok 5 - $y is a string, ^
Use of strings with code points over 0xFF as arguments to bitwise xor 
+(^) operator is deprecated. This will be a fatal error in Perl 5.28 a
+t isnum.t line 16.
ok 6 - $z is a string, ^

$ perl isnum.t
1..6
...
ok 2 - $y is a string, &~
Use of strings with code points over 0xFF as arguments to 1's compleme
+nt (~) operator is not allowed at isnum.t line 12.
# Looks like your test exited with 255 just after 2.