Hello, here the same thing with another use of substr() - the 4th argument

$_ = substr $str, 8, 1;
substr $str, 8, 1, uc;
print "$str\n";
[download]