my $var = '-.3';

use warnings FATA=> 'numeric';
my $a = eval '$var + 3';
print 'Not a number' if $@;