if(/^\%/) {
    my $tag = shift @line;
    my $full = join ' ', @line;
    push @{$outer{$tag}}, $full;
}