my $string = "ACta";
$string =~ s/^(.*)(.)$/\L$1\U$2/;