Select Code to Download

my @blacklist = ('evil', 'bad', 'wrong');
my $a = "this string contains no blacklisted tokens";
my $b = "this string is evil and wrong";
...
else {
    print "Failure with b\n";
}

my $regex = '.(?!evil)';

if ("this is so evil" =~ /($regex)/) {
    print "yay: $1\n";
}