$_ = "lothlorien";

m/ (?{ $i = 0 })
   (.  (?{ local $i = $i + 1; })  )*  
   lori
   (?{ $result = $i })
/xi;