#!/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";
}