use warnings;
use strict;
use autodie;

open INFILE, "<infile";
open OUTFILE, ">outfile";

while (<INFILE>) {
    print OUTFILE if /start regex/ .. /end regex/;
}
close INFILE;
close OUTFILE;