my @pattern = <STDIN>;             # slurp patterns
chomp @pattern;                    # remove end-of-line
my $pattern = join '|', @pattern;  # create regexp

open F2, "<file2" or die "Cannot open file: $!\n":
while (<F2>) {                     # read DATA
    print if /$pattern/;
}
close F2;

##</code><code>##

$ ./myscript.pl <file1