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