yet another way, which should be quickier than the double reverse:

my $string = "ACta";
$string = lc(substr($string, 0, length($string)-1)) 
        . uc(substr($string, -1, 1));
[download]