$_ = "[[foo]] bar [[baz ] qux]] [quux]] fred [[waldo]]]";
say $1 while /\[\[([^]]*(?:\][^]]+)*)\]\]/g;
__END__
foo
baz ] qux
waldo