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

##</code><code>##

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