I don't quite get what exactly you want to pass in as your patterns since you seem to be hardcoding them anyway...so I'll take a stab in the dark. Also, the ".." and "..." operators return a count of lines matched along with an indicator that tells you if it matched the stop pattern. So:

my ($file, $start, $stop) = @ARGV;

$start = qr/^$start/;
$stop = qr/^$stop/;

open(my $fh, "<", $file) or die "Err: $!";
while(<$fh>) {
  if ( my $status = /$start/.../$stop/ ) {
    print unless $status =~ /E/;
  }
}
close $fh;
[download]