Sorry, but no. I won't do that. As I already wrote: This is just meant as an example to improve your understanding of Perl.

If you want more functionality then please implement it on your own. This way you also have a better understanding what goes wrong when it goes wrong. (And since the input format is XML I'm very confident something will go wrong.) You really should not use regular expressions to parse XML - use a real parser instead.