my @digits = ($input =~ m/\d/g);

##</code><code>##

print scalar @digits;