#!/usr/bin/perl -w
use strict;

#%GROUP    ALSMS_consolidation
#%CHPTR    ALSMS_consolidation
#%SBCH1    WORK_switch_id

print "group ^ chapter ^ name ^ description\n";

my (%outer, $group, $chapter);

while(<>) {
    chomp;
    @line = split /\s+/;

    if(/^\%SBCH1/) {
        my ($key, $value);

        print "$key: ", join(", ", @$value), "\n\n"
            while ($key, $value) = each %outer

        %outer=();
    }
    elsif(/^\%GROUP/) {
        $group = $line[1];
    }
    elsif(/^\%CHPTR/) {
        $chapter = $line[1];
    }
    elsif(/^\%/) {
        push @{$outer{$line[0]}}, join ' ', @line[1 .. $#line];
    }
}