use strict;
use warnings;
$|=1; #turn off stdout buffering so error msgs match


my $x = "awsdfasdf";
print "zero\n" if ($x==0); # zero
#Argument "awsdfasdf" isn't numeric in numeric eq (==) 
$x+= 0;
print "x\n";               #0


my $y="asdf6";   #ending digits to alpha do not count
$y+= 0;
#Argument "asdf6" isn't numeric in addition (+)
print "$y\n";   #0

my $z = "3asdf"; #beginning digits will be used
$z+=0;
#Argument "3asdf" isn't numeric in addition (+)
print "$z\n";   #3

my $x1 = "0 but true";  #more common now is 0E0
$x1+=0;                 # NO ERROR!
print "$x1\n";          #0

my $x2 = "3 camels";    #can have textual "units"
$x2+=0;
#Argument "3 camels" isn't numeric in addition (+)
print "$x2\n";         #3

__END__
Argument "awsdfasdf" isn't numeric in numeric eq (==) at line 7.
zero
x
Argument "asdf6" isn't numeric in addition (+) at line 14.
0
Argument "3asdf" isn't numeric in addition (+) at line 20.
3
0
Argument "3 camels" isn't numeric in addition (+) at line 31.
3