Еще вопрос.
В книге "Программирование на Perl" (стр. 258) нашел такой пример:



но на практике регэксп выводит только:
Пока найдено: a

По идее, код должен вычисляться и печатать результат при каждом возврате, как и описано в книге. Но этого не происходит. Может быть когда писалось это (3-е) издание книги, то все работало как описано, а сейчас срабарывают какие-нибудь оптимизации и результат меняется?

Удалось смоделировать поведение как в примере добавив в регэксп квантификатор (любой) после блока кода:


Но к пониманию это не привело. 
Буду признателен за помощь в решении данного вопроса. Спасибо.

Замените "bcdef" на [a-z]{5}. Оптимизатор поумнел, и сразу определяет, сколько символов с конца строки надо минимум оставить для успешного совпадения. Медитация над use re "debug" поможет понять разницу в поведении движка между этими вариантами)