note
murugu
<p>Here is my try with [cpan://XML::Twig].
<code>
use XML::Twig;
my $hash;
my $t= XML::Twig->new( twig_handlers =>
{ charge => sub{ $hash->{$_[1]->{'att'}->{'code'} }=$_[1]->{'att'}->{'name'}},
},
);
$t->parse( '<charge-type-control>
<charge code="FRT" name="frtamt"/>
<charge code="SV1" name="savamt"/>
<charge code="SV2" name="savamt"/>
<charge code="SV3" name="savamt"/>
<charge code="SV4" name="savamt"/>
<charge code="SV5" name="savamt"/>
</charge-type-control>');
print $_."\t".$hash->{$_}."\n" for keys %{$hash};
</code>
<p>regards<br>Murugesan Kandasamy
437365
437365