my $parser = XML::Parser->new( 'Handlers' =>
                               { Start => $xml_start,
                                 End   => $xml_end,
                                 Char  => $xml_char,
                                 Default => $xml_char,
                               },
                               'NoExpand' => 'TRUE', 
                             );
$parser->parse( $XML );