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