open( STOPWORDS, '<', 'stopword.list' );
my @stopwords = <STOPWORDS>;
chomp @stopwords;

my $stopregex = join '|', map qr/\b\Q$_\E\b/, @stopwords;