#!/usr/bin/perl
use warnings;
use strict;

open( LIST, "stopwords.txt" ) or die "$!";
my %stopwords = map { chomp; $_ => 1 } <LIST>;  
close LIST;

while (<>) {
   chomp;
   for (split) {
        print unless $stopwords{$_};
   }
}