Select Code to Download

@badwords = map { my $regex = join '\W*', (split //, $_);
                  qr/$regex/i;
...
foreach (@badwords) {
    $string =~ s/$_/<expletive>/gc;
}