Select Code to Download

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

my $length =()= $foo =~ /[0-9]/g;
print "$foo has $length digit(s)";