my @out;
while(<F>) {
    push @out, $_ if /StartPattern/.../StopPattern/;
}