Здравствуйте, anonymous, Вы писали:

...

Тогда каким макаром можно провернуть такую штуку: модифицировать строку до тех пор, пока не совпадет, а после совпадения взять нужный фрагмент, захваченный "()" в $1 ? Прямолинейное решение:

my $match;
until (($bar =~ $re) and (($match = $1), 1))
{
    $bar .= foo();
}

Но как-то не очень элегантно, ИМХО.

P.S. выражение (($match = $1), 1) нужно потому, что $match может быть, ну скажем, '0', в результате операция присваивания вернет '0', и until не закончится.