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