Select Code to Download

my @myTerms = ( 'foo bar', 'blah' );
my $term = "foo";
for (  @myTerms ) {
  print "$term match with $_\n" if /\Q$term\E/;
}