my $count = $str =~ tr/%//;
print "pcount: $count\n";