open IN, "<$bigfile" or die "Can't open $bigfile: $!\n"; open OUT, ">$newfile" or die "Can't open $newfile: $!\n"; while() { print OUT $_ if /the pattern in question/; } close OUT; close IN;