> tperl
use Scalar::Util qw(looks_like_number);
for my $i ("00".."10") {
P "%s(%d) %s like a number", "$i", "$i", looks_like_number($i) ? "looks":"does not look";
}'
00(0) looks like a number
01(1) looks like a number
02(2) looks like a number
03(3) looks like a number
04(4) looks like a number
05(5) looks like a number
06(6) looks like a number
07(7) looks like a number
08(8) looks like a number
09(9) looks like a number
10(10) looks like a number