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