#!/usr/bin/perl -w

open(FILE, 'test.xml') or die $!;
my $xml = join('', <FILE>);

while($xml =~ m!<message>([\w\s]+)</message>!g) {
    print $1, "\n";
}