I would use XML::LibXML. Once you have parsed the XML and got hold of the root node, you can then do something like:

  my $name = 'NameOfTheNodeYouAreInterestedIn';
  my @matchingNodes = $rootNode->findnodes('//' . $name);
[download]

Of course the XPath argument to findenodes may be a lot more complicated than my example.

HTH,

loris