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

##</code><code>##

print "==> Foo: " . ($s || '') . "<===\n";