C:>perl -e "my $var = 0x8;if ($var =~ /^[1-9]\d*$/) {print 'num' } else {print 'not a num';}"
num