Select Code to Download

my %desc;

...

sometimes with a few paragraphs
END

__DATA__
[room]
...
a few lines long [sometimes with braces]

sometimes with a few paragraphs

my %desc;
my $key = 'error';
...
    }
}
die if defined $desc{'error'};

my $data=<<ENDS;
[room]
...
ENDS

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