Perl - lOCALIZAR PALABRAS EN MAYÚSCULAS CON PERL

Estoy intentando crear un programa de Perl que localice las palabras en mayúsculas de un documento .txt y presente como resultado cuantas veces aparece cada una de ellas. Alguien tiene alguna idea de como podria ser?
Muchas gracias!