#!/usr/bin/perl -w
use strict;
my @data=(<DATA>);

foreach (grep { my $sequence_number=/START/ .. /STOP/; $sequence_number ne 1 and $sequence_number !~ /E0/ and $sequence_number;} @data ) {
  chomp;
  print "$_ Between START and STOP\n";
}

__END__
START
Sausage
Mash
Mushy Peas
STOP
Monkey Nuts
START
Bananas
Custard
STOP
Tarzan