Select Code to Download

my @pattern = <STDIN>;             # slurp patterns
chomp @pattern;                    # remove end-of-line
...
    print if /$pattern/;
}
close F2;

$ ./myscript.pl <file1