Help for this page

Select Code to Download

Select or download this

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

Select or download this

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