$_ = "lothlorien";
m/ (?{ $i = 0 })
   (.   (?{ $i++ })  )*?   #### * greedy, *? not greedy
   lori
/x;

die $i, $i;