$ perl -E '
> $str = q{ABCDEFGHIJK};
> substr( $str, 3, 3 ) =~ tr{A-Z}{a-z};
> say $str;'
ABCdefGHIJK