push @lines, $_ unless $where == 1 or $where =~ /E0/;

##</code><code>##

my $foundend;
while (<file>)
 {
   next unless my $where = /START/ .. ($foundend=/END/);
   # ...
 }
print "found\n" if $foundend.