#!/bin/perl -w
use strict;
use XML::Twig;
my $twig= XML::Twig->new();

my $file = "message.xml";
 $twig ->parsefile( $file );

my $root = $twig->root;	

my @nodes = $root ->children;	

foreach my $node ( @nodes) {
	my $content = $node->text ;
	print "$content ";
}