use strict;

my $regex;
$regex = qr /(              # Start capture
                \(              # Start with '(',
                (?:             # Followed by
                (?>[^()]+)      # Non-parenthesis
                |(??{ $regex }) # Or a balanced () block
                )*              # zero or more times
                \)              # Close capture
                )/x;            # Ending with ')'

my $text = '(outer(inner(most inner)))';

$text =~ /$regex/gs;

print "$1\n";

__END__
P:\test>junk2
(outer(inner(most inner)))