$a=~s/(.)(...)\1/A$2B/g;
print "$a\n";