>perl -e 'for ("1", "22", "abc", "1e4", "0xABCD", "") { /\D/ or print "\"$_\" is an integer\n" }'
"1" is an integer
"22" is an integer
"" is an integer
>