selecting between records

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;
}
}

Try this, I think it's a little clearer as to what's going on:

Code:

---

use strict;

my $infile = 'file.txt';
my $found = 0;

open(INFILE, $infile) or die "Can't open $infile: $!\n\n";

foreach my $line (<INFILE>) {
        if ($line =~ /Start/) {
                $found = 1;
        } elsif ($line =~ /Finish/) {
                $found = 0;
        } elsif ($found == 1) {
                print OUTFILE $line;
        }
       
}

---