use warnings;
use strict;

my $var = 'abc';
no warnings;
my $testvar = $var + 0;
use warnings;

if ($var eq $testvar) {
   print "$var is numeric\n";
}
else {
   print "oops, $var is NOT numeric\n";
}