my @lines;
while (<DATA>) {
    my $is_key = /KEY/;
    @lines = () if $is_key;
    if (my $in_range = $is_key .. /PATTERN/) {
        push @lines, $_;
        print @lines if $in_range =~ /E0\z/;
    }
}