Select Code to Download

  s/(?<!A...)(.)(?=...\1)/A/g;
  s/(?<=A...)(.)/B/g;

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