c:\@Work\Perl\monks>perl -wMstrict -le
"my $x = '';
 print 'equal' if $x == 1;
"
Argument "" isn't numeric in numeric eq (==) at -e line 1.