my $numb = '';
print 5 + ($numb||0); # no warning