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