使用perl统计文档中的单词数 ​​​