while (<>) {
    if (/^#ERRORS/ .. /^CELLS/) {
        push(@errors, $_);
    } elsif (/^CELLS/ .. /^\s*$/) {
        push(@errors, $_);
    } else {
        ...; # other processing
    }
}

##</code><code>##

if    (/match1/ .. /match2/) { doStage1(); }
elsif (.. /match3/)          { doStage2(); }
elsif (.. /match4/)          { doStage3(); }
else                         { doOtherProcessing(); }