my $s='aAaAaAaAaAaAAAAaaa';
substr( $s, 1+index( $s, 'A' ) ) =~ s[A][a]g;
print $s;

aAaaaaaaaaaaaaaaaa