arrays - ¿Hay un atajo de Perl para contar el número de coincidencias en una cadena?