#!C:/server/Perl/bin/perl.exe

use strict;
use XML::Parser;

my $parser = new XML::Parser(ErrorContext => 2);

$parser->setHandlers(Char => \&char_handler,
		     Default => \&default_handler);

$parser->parsefile('xml_teste1.xml');

sub char_handler
{
    # This is just here to reduce the noise seen by
    # the default handler
}  # End of char_handler

sub default_handler
{
    my ($p, $data) = @_;

    if ($data =~ /^Entity id/)
    {
	my $line = $p->current_line;
	$data =~ s/\n/\n\t/g;
	print "$line:\t$data\n";

    }
}  # End of default_handler