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