my $num = unpack "A/A*", $_;
print $num if length($num) and $num !~ /\D/;