Help for this page

Select Code to Download

Select or download this

my $a = "this is a test [[1]] [[ a ]] [[ abd ]] [[\%object,key]]";
print $_,$/ for $a =~ /(\[\[[^\]]+\]\])/g;
...
[[ a ]]
[[ abd ]]
[[%object,key]]