A similar, actually more complex, question was asked in Help with XML::XPath, where I gave a few code samples.