Similar to crazyinsomniacs 4th version (Which im not so sure about... But thats a different matter)

my $section = 0;
my @sections=(undef,[],[]);  
while(<TEXTFILE>) {
    $section = $1 and next if /;section([12])/;
    die "Bad section $section" unless $section;
    push @{$sections[$section]},$_;
}
[download]

Update: The 'and' in the code was added. It used to be incorrectly '&&'

Yves / DeMerphq
--
When to use Prototypes?