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

##</code><code>##

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