my @words = qw( clash school schools hosepipes crystallography );

print $_, "\n" for grep { tr/sh//cdr eq "sh" } @words;