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