use Scalar::Util qw(looks_like_number);;

[0] Perl> print looks_like_number( $_ ) for 1, '1', 1.0, '1.0', '1o';;
4352
1
8704
5
0