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