$str = '
blah blah blah blah
blah
blah blah blah [blah
[blah blah] [blah blah blah
blah] blah]
blah blah';

$str =~ m/\[(.*)\]/s;
print $1;