Help for this page
my $a = "17341234";
$a=~s/(.)(...)\1/A$2B/g; print "$a\n";
A7AAB2BB
A734B234
$a=~s/(.)(?=...\1)/A/g; $a=~s/(?<=A...)(.)/B/g; print "$a\n";