Wobei hast du denn Probleme?

Lesen von XML: dazu kannst du z.B. XML::Simple oder moderner XML::LibXML nehmen, für Beispiele siehe z.B. http://www.perlmonks.org/?node_id=490846

Dann hast du den Text bekommen. Den kannst du mit split in Wörter aufteilen und dann in einem Hash die Anzahl zählen.

Am besten startest du mal und sagst dann, wo genau du ein Problem hast.