#!/usr/bin/perl -w

my @words;
my $line;

open (DICT, "< final.txt");
@words= <DICT>;
close (DICT);

foreach $line(@words) {

  if ($line =~ /s.*h/i) {
        if ( ($line =~ /s.*s/i) || ($line =~ /h.*h/i) ) {
        next;
        }
  print $line;
  }
}

exit;