##
Italian: Ricerca scientifica
English: research
####
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml = XML::Simple->new(SuppressEmpty => q());
my $data = $xml->XMLin('myxml.xml');
for my $entry ( @{ $data->{termEntry} } ) {
print Dumper( $entry );
print my $Term = $entry->{langSet}->{termGrp}->{term};
}