You want to be using XML::Twig: "A perl module for processing huge XML documents in tree mode." (from the POD)