my @matches = $_ =~ m/(\[.*?\])/g;
print "$_\n" for @matches;