substr ($_, 1, 1) = uc substr ($_, 1, 1);