This looks like the same question that was in limbo in Q&A, and now seems to have disappeared. Here's my answer from there:

#!/usr/local/bin/perl -w

use strict;

while (<DATA>) {
 if (my $status=/^Colours$/.../^\S/) {
  last if $status =~ /E0/;
  print;
 }
}
__DATA__
Flavours
  sweet
  sour
Colours
  orange
  yellow
  red
MoreAttributes
  stuff
[download]