The value returned by scalar ".." is the sequential count, with "E0" tacked on the final line. So, just save it and use it:

while (<file>)
 {
    next unless my $where = /START/ .. /END/;

    print unless $where == 1 or $where =~ /E0/;

}
[download]