Search Results

I can't think of how to do all that with a single regexp. Maybe someone else can.

If you know the pattern you want to match that is what you would use:

my $str = '(foo ((bar)))';
my ($n) = $str =~ /(\Q((bar))\E)/;
print $n;

\Q escapes the meta meaning of the parenthesis...