Select Code to Download

/A/g;
s/\G(.*?)A/$1a/g;

s{(?<=A)(.*)}{my $rest=$1; $rest=~tr/A/a/; $rest}e;

substr($_, index($_, 'A')+1) =~ tr/A/a/;

/A/g;
substr($_, ++pos) =~ tr/A/a/;