_>until ($bar =~ $re)
_>{
_>    $bar .= shift @foo;
_>    print $bar . "\n";
_>}
_>

_>Выражение в цикле until совпало, но $1 осталось неопределенным ( ), однако совпадение того же самого выражения ниже нормально модифицировало $1. Это лыжи не едут, или как?

The numbered match variables ($1, $2, $3, etc.) and the related punctuation set ($+, $&, $`, $', and $^N) are all dynamically scoped until the end of the enclosing block or until the next successful match, whichever comes first.

until ($bar =~ $re and print($1))
{
    $bar .= shift @foo;
    print $bar . "\n";
}