Select Code to Download

  $rxNest = qr{(?x)
    \(
...
    \)
  };
  $string =~ /$rxNest/;

  $rxNest = qr{
    \(
    (?: (?>[^()]+) | (??{$rxNest}) )*
    \)
  }x;

  (?{ local @memoList = (@memoList, $+) })

  (?{ local $offset = $offset + 1; local $memoList[$offset] = $+ })

  $string =~ /^$rxNest\z/;