#!/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