$ perl -E '$str="Fly guys try yoyos"; my $c = $str =~ tr/y//; say $c;'
5