my $badwordsRE = "\\b" . join( "\\b|\\b", @badwords ) . "\\b";

reject if /$badwordsRE/o;