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

use strict;

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