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

die $i, $i;
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"