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