84 得分

是否有 Perl 快捷方式来计算字符串中的匹配项数？