$ perl -le '
> $str = q{adfsdheHjdGafefaffJaff};
> $str =~ s{(?:(?<=^)|(?<=[A-Z]))a}{999}g;
> print $str;'
999dfsdheHjdG999fefaffJ999ff
$