Text::Balanced::extract_bracketed( $str, '[]' );