|
                  v
$test =~ s{\[\[(.+?)[^\]\]]}{
   print "FOO: $1\n";    
}ge;

##</code><code>##

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