if (my $status = /^$start$/ .. /^$end$/) {
    print unless $status =~ /^1$|E/;
}

# Or no extra variable, but getting more obfuscated :)
print if (/^$start$/../^$end$/) !~ /^1?$|E/;