Select Code to Download

my $text = 'Perl is a general-purpose programming language originally 
+developed for text manipulation and now used for a wide range of task
+s including system administration, web development, network programmi
+ng, GUI development, and more.';
# Text source: perlintro [http://perldoc.perl.org/perlintro.html]
...

   print("$keywords: ", $text =~ /$re/ ? "match" : "no match", "\n");
}

^(?=.*\bPerl\b)(?=.*\bdevelopment\b)
Perl development: match
^(?=.*\bPerl\b)(?=.*\bsucks\b)
Perl sucks: no match