$_="17341234";
1 while s/(.)(...)\1/A$2B/;
print "$_\n"