pos($_) -= 3 while s/(.)(...)\1/A$2B/gc;