Hello powermonk, welocme to the Monastery.

Please, use <code> ... </code> tags not only for code samples, but for data as well.

There are several XML parsing modules on CPAN. I would recommend XML::LibXML. You can easily navigate in the XML document using XPath expressions:

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

use XML::LibXML;

my $xml = XML::LibXML->load_xml(location => '1.xml');
my $v   = $xml->findnodes('//Attribute[AttrName="ref_num"]/AttrValue')
+;
print "$v\n";
[download]