Select Code to Download

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

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

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