my $a = "17341234173412341734123417341234";
my $n=0; 
$n++ while $a =~ s/(.)(...)\1/A$2B/;
print $n, $a;
12 A7AAB2BBA7AAB2BBA7AAB2BBA7AAB2BB