Select Code to Download

#!/usr/bin/perl

...
print "$str does",
      Scalar::Util::looks_like_number($str) ? '' : ' not',
      " look like a number.\n";

$ ./bs.pl
XP does not look like a number.