Regexp и строки со вложенными скобками

> Есть ли способ это сделать только по средствам регулярных выражений?

Регулярным выражениям это не посредствам..

есть Text::Balanced

Или вот:

sub get_matching_parens
{
  my $expr = shift;

  my @matching_parens = ();
  my @stk = ();
  for (my $i = 0; $i < length($expr); $i++)
  {
    if (substr($expr, $i, 1) eq '(')
    {
      push(@stk, $i);
      next;
    }
    if (substr($expr, $i, 1) eq ')')
    {
      if (scalar(@stk) == 0)
      {
        return undef;
      }
      $matching_parens[pop(@stk)] = $i;
      next;
    }
  }
  if (scalar(@stk) > 0)
  {
    return undef;
  }
  return \@matching_parens;
}

>push(@stk, $i);

это как бы читерство ;)

у перла есть рекурсивные regexp, это я как незнающий перла утверждаю.

Кхм... рискну показаться нескромным... Есть язык который умеет это делать просто и непринужденно... Не... Я лучше промолчу :) Там вверху про него тема есть :))

хммм, а в чём проблема ?

$ echo "(текст)(в)(((скобках)))" | perl -ne 'while (/\(([^()]+)\)/g) { print "$1\n"; }'
текст
в
скобках