XML::Parser 

• wrapper around libexpat

my $parser = XML::Parser->new(
    Handlers => {
        Start => \&handle_start,
        Char  => \&handle_char
    }
);

$parser->parsefile($filename);