open (STOPWORDS, $ARGV[1]) || die "Error opening the stopwords file\n"; $count = 0; while ($word = ) { chop($word); $stopword[$count] = lc($word); $count++; } close(STOPWORDS); open (INFILE, $ARGV[0]) || die "Error opening the input file\n"; while ($line = ) { chop($line); @entry = split(/ /, $line); $i = 0; while ($entry[$i]) { $found = 0; $j = 0; while (($j<=$count) && ($found==0)) { if (lc($entry[$i]) eq $stopword[$j]) { $found = 1; } $j++; } if ($found == 0) { print "$entry[$i]\n"; } $i++; } } close(INFILE);