use strict;

open(FILE,"myfile") or die "couldn't open input file";

open(OUTFILE,">myotherfile") or die "couldn't open output file";

my @file_lines = <FILE>;

for( @file_lines )
{
  print OUTFILE $_ if /matches_this_pattern/;
}