Select Code to Download

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

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

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

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, <$D
+ICT>;