substr($a, $_, 5) =~ s[(\d)(...)\1][A$2B] for 0 .. length ($a);