Using perl, I want to pick up only the records between Start and Finish in INFILE:

i.e

Start
AAH
BBH
CCH
Finish

I am using the following code but this only excludes Start and writes everything else to output.txt ?

my $sField = "Start";

foreach $_ (<INFILE> ) {
if ($_ !~ $sField) {
print OUTFILE;
}
}