my $s = "AAAAAXXXXXXXAAAXXXXXAXXXXAAAAA";
$s =~s{A\K([^A]+)(?=A)} {"A" x length $1 };
print $s."\n";