open OUTFILE, "<$outfile"; open FINAL, ">$final"; foreach my $line () { print FINAL "$1\n" if $line =~ /(my first line|my second line|my third line)
/); }