open my $DICT, "<", "final.txt" or die "cannot open final.txt$!";
while (my $word = <$DICT>) {
    next unless $word =~ /s.*h/i;
    next if $word =~ /s.*s/i or $word =~ /h.*h/i;
    print $word;
}