Figure out if the second character is a letter of the alphabet?

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

Convert that character to its uppercase form?

substr ($_, 1, 1) = uc substr ($_, 1, 1);
[download]

Abigail