Select Code to Download

$comment =~ s/$l/****/g;

my $foo = "man, that's some badass motherfucking shit!";
my @badwords = qw/ass fuck shit/;
...
}

print $foo, "\n";

man, that's some bad*** mother****ing ****!