use re 'eval';

$_ = q'abczdefzabcghijklzabczaerabrtyuabcethdauthabkudiabc';

if (/([a-z]{3}).+?\1/) {
    $unit = $1;

    m<
    (
     (?{
         push @found, pos()
       })
     $unit
    )
    \G
    .+?
    \1
    >gx;

    print join ', ', @found, "\n";
}