Please see a recent post: number of numbers in a string. Mine was:

$a = 234234;
print scalar(()= $a =~ /\d/g);
__END__
6
[download]