Perl based XML parsing solution