my ($match) = $text =~ /^0(.+)SUBCASE/;