$ perl -wE' say "1" + 0; say "2foo" + 0; say "foo3" + 0;' 1 Argument "2foo" isn't numeric in addition (+) at -e line 3. 2 Argument "foo3" isn't numeric in addition (+) at -e line 4. 0