print $1 if /^(\d)/g and /\G(\d{$1})/g

##</code><code>##

print unpack "A/A*", $_

##</code><code>##

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