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

use XML::LibXML;

my $xml = XML::LibXML->load_xml(location => 'locations.xml');

my $nl = $xml->getElementsByLocalName ('Data');
my @text;

for my $node ($nl->get_nodelist) {
    push @text, $node->textContent if 'NAME_2' eq $node->getAttribute ('name');
}

print "$_\n" for @text;