jars@jars-desktop:~$ perl -wle 'my $var = "1test"; print "yes" if int $var == $var'
Argument "1test" isn't numeric in int at -e line 1.
yes
jars@jars-desktop:~$