RosettaCodeData/Task/Determine-if-a-string-is-numeric/Perl/determine-if-a-string-is-numeric-1.pl

use Scalar::Util qw(looks_like_number);
print looks_like_number($str) ? "numeric" : "not numeric\n";