Select Code to Download

"$_ is string\n" if (~$_ & $_) ne '0';

my $string = "0";
my $num    = 0;
...

print "num: $num is a string.\n" if ((~$num & $num) ne '0');