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