Select Code to Download

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

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

my %freq;

...
        $freq{$token}++;
    }
}