m<
    (
     (?{
         push @found, pos()
       })
     [a-z]{3}   # suppose i'm looking for a series of 3 repeating characters...
    )
    \G
    .+?
    \1
 >gx;