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