Select Code to Download

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

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