[perl] как найти все варианты шаблона встроке с перекрытием

my $str = 'gggooohhh';
while ($str =~ m/(.o.)/cg)
{
  warn "XXX $1\n";
  pos($str) = $-[0] + 1;
}

уже только с использованием $&, но хотелось бы чего-нибудь по элегантней возможно с for

Видел это решение в Perl: Сборник рецептов. Там, кстати, говорили что нельзя из этого цикла вываливаться по last; это из-за $1 ?

не знаю. Я взял это off the top of my head. Не знаю какие проблемы с last.

nikolayd если вспомните почему нельзя отпишитесь.

В книге не совсем такой пример, но думается мне, там подразумевается,
случай грепа
"last" cannot be used to exit a block which returns a value such as
"eval {}","sub {}" or "do {}", and should not be used to exit a grep()
or map() operation.

Тут греп ни при чём.
Данное правило говорит о том, что last применим к циклам.
while(){} - это цикл, в нём last применим.
eval {}, sub {}, do {}, grep(), map() - это не циклы, тут last не применим.