my @matches = ($a =~ m/(\[\[.*?\]\])/g);