WORDS:  for($x=0; $x<@words; $x++) {
          foreach(@exclude) {
            if (($words[$x] =~ m/\W) || # remove non-words
               ((length($words[$x])) < 4) || # ignore words less than 4 characters
               (($x > 0) && (lc($words[$x]) eq lc($words[$x-1]))) || # drop duplicates
               (lc($words[$x]) eq lc($_)) ) {
                   splice (@words, $x, 1);
                   $x--;
                   next WORDS;
             }
        }
      }