Huh?!? If you're printing the data, you already have the info contained in it. Or else it is irrelevant that you're printing, and you may have just shown the format of the file you have to parse. And since it appears to be XML (as opposed to generic "TXT"), an xml parsing module would be the best tool to use. XML::Twig is a common recommendation, then. But also check the "Ways to Rome" series for some comparisons between Perl XML modules.

Incidentally, if you had to print all that text (or even more), you may have considered an "here-doc" instead (see perldoc perlop.)