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