$_='a(b(c(d)(e))f)g(h)((i)j)';
 
$re = qr{ (                     # paren group 1 (full function)
            \w*
            (                   # paren group 2 (parens)
              \(
              (                 # paren group 3 (contents of parens)
                (?:
                  (?> [^()]+ )  # Non-parens without backtracking
                |
                  (?2)          # Recurse to start of paren group 2
                )*
              )
              \)
            )
          )
      }x;
 
@matches=/$re/;
print "@matches";

##</code><code>##

perl /tmp/tst.pl
a(b(c(d)(e))f) (b(c(d)(e))f) b(c(d)(e))f
Compilation finished at Sat Oct 24 19:42:58