my $xml_parser = HTML::Parser->new( api_version => 3, unbroken_text => 1, start_h => [ \&_xml_start, 'self,tagname,@attr'], end_h => [ \&_xml_end, 'self,tagname'], text_h => [ \&_xml_char, 'self,text'], xml_mode=> 1, );