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