请教关于perl文件中字符的问题

请教关于perl文件中字符的问题

请问,.txt文件当中有多少个字符串AAAA有多少个字符串BBBB
用perl怎么写啊?请高手赐教。谢谢
直接用 grep + wc -l 吧