open OUTFILE, "<$outfile"; open FINAL, ">$final"; while () { print FINAL if /(my first line)/; print FINAL if /(my second line)/; print FINAL if /(my third line)/;