Aye, it would. I can't find a prettier solution than:

while (<FOO>) {
  if (my $ln = /bar/ .. /baz/) {
    print unless $ln =~ /E/;
  }
}
[download]