$string = "abc1235ABC";
$number = ($string =~ tr[a-zA-Z][a-zA-Z]);
print "I counted $number alphabetical characters.\n";
print "My string is still ->$string<-\n";