$_ = uc for substr($str,8,1);