Select Code to Download

use strict;
use warnings;
...
$str =~ s/(?<=A)(X+)(?=A)/'a' x length $1/ge;
print "$before\n";
print "$str\n";

XAXAAAAXXXXXXXAAXXXXXAXXXXAAAAX
XAaAAAAaaaaaaaAAaaaaaAaaaaAAAAX