Select Code to Download

my $x = "foobar";
print "matches 1\n" if ($x =~ m/foo bar/x); # succeeds 
print "matches 2\n" if ($x =~ m/foo bar/); # fails

my %hash;
while (<file1>) {
...
    # line from file2 is not in file1
  }
}