$foo = "spider9832man23";
my @digits = ($foo =~ /\d/g);
print scalar(@digits); # print 6

##</code><code>##

$foo = "spider9832man23";
print ( $count = () = $foo =~ /\d/g); # prints: 6