my @badwords = qw(smurf fork larf);
my $bwregex = join('|', @badwords);
...
next if(/$bwregex/o);