Select Code to Download

my $good = "this string contains no blacklisted tokens";
my $bad = "this string is evil and wrong";
...

warn 'good string is ok' if $good !~ /\b(?:$re)\b/i;
warn 'bad string failed' if $bad =~ /\b(?:$re)\b/i;