Select Code to Download

use strict;

my @swearwords = qw/bad worse ugly/;
...
$text=~s/$_/****/ foreach @swearwords;

print $text;

use strict;

my $swearwords= join '|', qw/bad worse ugly/;
...
$text=~s/$swearwords/****/g ;

print $text;