my $data=<<ENDS;
[room]
some text here, probably something
a few lines long

[wall]
another text here, probably something
a few lines long [sometimes with braces]

sometimes with a few paragraphs
ENDS

%desc = grep {$_} (split (/\[(\w+)\]/, $data));