my %desc;
my $key = 'error';
for (<DATA>) {
    if (/^\[(\w+)\]\s*$/) {
        $key = $1;
    }
    else {
        $desc{$key} .= $_;
    }
}
die if defined $desc{'error'};