use Regexp::List;
my $l  = Regexp::List->new;
my $re = $l->list2re(@swearwords);

##</code><code>##

$text =~ s/$re/****/g;