# or:
++$count while $foo =~ /\d/g;
# or:
$count = $foo =~ s/(\d)/$1/g;
# or:
$count = () = $foo =~ /\d/g;
# or:
$foo =~ s/(\d)/++$count; $1/ge;
# etc.