open (DICT, "< final.txt");

##</code><code>##

open my $DICT, "<", "final.txt" or die "cannot open final.txt$!";

##</code><code>##

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;
}

##</code><code>##

open my $DICT, "<", "final.txt" or die "cannot open final.txt$!";
print for grep { not /h.*h/i } grep { not /s.*s/i }  grep /s.*h/i, <$DICT>;