while ($test =~ m{\[\[(.+?)\]\]}g) {
   print "FOO: $1\n";    
}