use Scalar::Util 'looks_like_number';
while (<>) {
    chomp;
    print (
        "$_ ",
        looks_like_number($_)? 'looks' : 'does not look',
        " like a number.\n"
    );
}

##</code><code>##

42
42 looks like a number.
foo
foo does not look like a number.