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

_>Тогда каким макаром можно провернуть такую штуку: модифицировать строку до тех пор, пока не совпадет, а после совпадения взять нужный фрагмент, захваченный "()" в $1 ? Прямолинейное решение:
_>Но как-то не очень элегантно, ИМХО.

Возможны такие варианты:

until ($bar =~ $re and defined($match = $1)) { ... }

или красивее и «правильнее»:

until (($match) = $bar =~ $re) { ... }