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