$test =~ s{\[\[([^\]]+)\]}{ print "FOO: $1 \n"; }ge; [download]
In reply to Re^2: Regex question - negatives by ultranerds in thread Regex question - negatives by ultranerds