toujours pour pas perdre:
perl -pe 'map { $c[s/[a-z]//ig]++; } split }{ print "max : ".($#c)." "' texte.txt