Select Code to Download

if (substr ($str, 1, 1) =~ /[[:alpha:]]/) { .. }

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