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