my $a = "17341234173412341734123417341234";
substr($a, $_, 5) =~ s[(.)(...)\1][A$2B] for 0 .. length ($a);
print $a;
A7AAB2BBA7AAB2BBA7AAB2BBA7AAB2BB