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]

Thanks for the quick response. can we pass a variable name in load_xml, since the o/p I get from a webservices call is stored in a variable whose contents are xml. Thank you.

Have you read the documentation I linked to? The details are here: XML::LibXML::Parser - DOM Parser.
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

can we pass a variable name in load_xml,

No, programs are forbidden from using variables

Sincerely yours, the great sarcasmo

There are many CPAN modules which can help you. For your first foray into simple XML parsing, I'd recommend XML::Simple. Despite being "simple", it still tends to do what I need most of the time.

use 5.014;
use XML::Simple;

my $xmls = XMLin($xml_string);
say $_->{AttrValue} for grep { $_->{AttrName} eq 'ref_num' }
                        @{$xmls->{Attributes}->{Attribute}};
[download]

$xmls is just an ordinary HASH ref; it's usually instructive to print it out with Data::Dump, Data::Dumper or similar:

use Data::Dump;

dd $xmls;
[download]

I tired it, but its not working. Below is what I am doing. my $xml_string= $result->result; //Store return value of webservices function. my $tkt= $_->{AttrValue} for grep { $_->{AttrName} eq 'ref_num' } @{$xmls->{Attributes}->{Attribute}}; print $tkt Not able to capture value.

Finally Got it. Was able to extract it using XML::LibXML by passing the string. Thanks all for your valuable help.