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

##</code><code>##

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