my ($rx) = map qr/(?:$_)/, join "|", map qr/\b\Q$_\E\b/, @stopwords;