my $count = $str =~ tr/y//;