Select Code to Download

use strict;
use warnings;
...
27
28
A7AAB2BBA7AAB2BBA7AAB2BBA7AAB2BB

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