$string =~ s/^(.*?)(.{1,3})$/\U$1\L$2/;