$foo =~ m/[0-9]({\d+})/
print "$foo has $1 digit(s)";