my $cnt = $str =~ tr/1//;

##</code><code>##

my %char_cnt;
++$char_cnt{$_} for split //, $str;