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