my $pcount = $str =~ tr/%//;