my $count = () = /\d/g;

##</code><code>##

my $count = tr/0-9//;

##</code><code>##

my %freq;
++$freq{$_} for split //;