my $entry_pattern = 'XML::LibXML::Pattern'->new('/martif/text/body/Entry');
	while ($reader->nextPatternMatch($entry_pattern)) {
...