【perl】转换（tr或y）统计单词字符,该怎么解决

【perl】转换（tr或y）统计单词字符
我想计算一个单词的字符，觉得转换是个简单的方法，可是单词中的连字符该怎么写进去

Perl code

$A=~tr/[-a-zA-Z]//;