Select Code to Download

my $re= qr{\[\[            # opening delimiter
(               # capture...
...
while ($test =~ m{$re}g) {
  print "FOO:<$1>\n";
}