Select Code to Download

>perl -wMstrict -le
"my $s = 'x(y) (a(b)) ()() q (a(b)c()(d(e(f)g))h) q';
...
--------
1 '(y)'   2 '(a(b))'
--------

our $r3 = qr{
  ...       
    (??{ our $r3 })
  ...
  }xms;