Could you show a short but representative input file and the output you expect for that input?

In general, I would very strongly recommend you don't parse XML with regexes, it's extremely brittle. I recommend a proper XML parser such as XML::LibXML, it will make you much happier in the long run.