...

our $rxNest;
$rxNest = qr{(?x)
   (
      \(
      [^()]*
      (?:
         (??{$rxNest})
         [^()]*
      )*
      \)
   )
   (?{ [ @{$^R}, $1 ] })
};

our $rxOnlyNested = qr{(?x)
   (?{ [] })
   ^
   [^()]*
   (?:
      $rxNest
      [^()]*
   )*
   \z
   (?{ @memoList = @{$^R} })
};

...

    if ($string =~ $rxOnlyNested)

...