That's the 9th character from the right. The 9th character from the right is at index 8.

substr($str,8,1) = uc(substr($str,8,1));
[download]

or

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

Update: Probably should ignore the latter. Harder to read, surely slower and no real benefit.