What have you tried so far?

Think of a way how you'd do it by hand, then write a Perl program that does the same.

For XML manipulation, people often recommend XML::LibXML or XML::Twig.