It looks like you are parsing XML files by hand to find the fields you want. It might be helpful to use one of the XML parsing modules like XML::LibXML or XML::Simple. Search for XML on this site and you'll find lots of great material, like Stepping up from XML::Simple to XML::LibXML.