Select Code to Download

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

use strict;
use warnings;
...
    ]
]
DATA