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

use XML::LibXML::Reader;

print "Importing...\n";

my $file = 'my.xml';
my $reader = 'XML::LibXML::Reader'->new(location => $file) or die;

my $entry_pattern = 'XML::LibXML::Pattern'->new('/martif/text/body/termEntry');

while ($reader->nextPatternMatch($entry_pattern)) {
    my $termEntry = $reader->copyCurrentNode(1);
    print "$termEntry\n";
    for my $lang_set ($termEntry->findnodes('langSet')) {
        my $language = $lang_set->getAttribute('xml:lang');
        for my $term_grp ($lang_set->findnodes('./tig')){
            my $term = $term_grp->findvalue('./term');
                print "$language: $term\n";
        }
    }
}

print "Done!\n";

##</code><code>##

Importing...
<termEntry>
        <langSet xml:lang="en">
          <tig><term>English</term></tig>
          <tig><term>Saesneg</term></tig>
        </langSet>
        <langSet xml:lang="cs">
          <tig><term>Czech</term></tig>
          <tig><term>Tsieceg</term></tig>
        </langSet>
        <langSet xml:lang="de">
          <tig><term>German</term></tig>
          <tig><term>Almaeneg</term></tig>
        </langSet>
      </termEntry>
en: English
en: Saesneg
cs: Czech
cs: Tsieceg
de: German
de: Almaeneg
<termEntry/>
Done!