#!/usr/bin/perl

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