#!/usr/bin/perl -w
use strict;
use XML::Parser;

my $p = new XML::Parser(Style => 'Stream', Pkg => 'main');
$p->parsefile('test.xml');

my $in_msg = 1;

sub StartTag { 
    $in_msg++ if $_ eq '<message>';
}

sub Text {
    print $_ if $in_msg;
}

sub EndTag {
    if ($_ eq '</message>') {
        $in_msg--;
        print "\n";
    }
}