#!/usr/local/bin/perl -w

use warnings;
use strict;
use XML::Simple;
use Data::Dumper;


my $xs = new XML::Simple(KeepRoot => 1);
my $address = "<LOC><HNO></HNO><STN>Eagle Way</STN><MCN>Gotham City</MCN></LOC>";

my $ref = $xs->XMLin($address);

print Dumper($ref);


# to print "Eagle way"
print $ref->{LOC}->{STN};