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

s{A\K([^A]+)(?=A)} {"A" x length $1 } is missing the /eg modifiers. See s/// (https://perldoc.perl.org/perlop#s/PATTERN/REPLACEMENT/msixpodualngcer) in perlop.