my $str = "12345";
my $count = () = $str =~ /\d/g;

print $count;

##</code><code>##

5