#!/usr/bin/env perl
use strict;
use warnings;

use XML::Twig;

my $twig = XML::Twig->new->parsefile('ciao.tmex');

foreach my $entry ( $twig->get_xpath('//Entry') ) {
    print "My terms: ", 
        $entry->get_xpath('./German/Term',0)->text, " - ",
        $entry->get_xpath('./Italian/Term',0)->text, "\n";
}

##</code><code>##

foreach my $entry ( $twig->root->children('Entry') ) {
   print "My terms: ",
     $entry->first_child('German')->first_child_text('Term'), " - ",
     $entry->first_child('Italian')->first_child_text('Term'), "\n";
}