my $a = "17341234173412341734123417341234";
$a=~s/(.)(?=...\1)/A/g; 
$a=~s/(?<=A...)(.)/B/g;
print $a;
A7AAB2BBB7BBB2BBB7BBB2BBB7BBB2BB