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