my @stopwords = qw( longwordOne anotherLongWord thirdLongHere );
my $stopmatch = join( '|', @stopwords );

while( <DATA> ) {
	next if /$stopmatch/i;
	print;
}