my @matches = ( $string =~ m/(\[.+\])\[/g );
my @matches = ( $string =~ m/(\[.+\])\[|/g );
my @matches = ( $string =~ m/(\[.+?\])\[|/g );
my @matches = ( $string =~ m/(\[.+?\])[\[|]/g );