$_ = "abcdef";
substr($_,0,3) =~ tr/a-z/A-Z/;
print;