Select Code to Download

my $keywords = "NSA|cocaine|Lybia|assasin(at(ion|e))?|CIA";
print "Enter regex matching other keywords:";
...
if ($string =~ m/$keywords|$userwords/x) {
  print "Found a terrorist!  $string\n";
}