#!/usr/bin/perl -wl
use strict;
my $str = "17341234173412341734123417341234";
{
    local *_ = \$str;
    *_ = \substr $_, pos()-4 while s/(.)(...)\1/A$2B/;
}
print $str;