my $file = '/tmp/1193350.xml';
my $xpath = q{/playlist/movie[title='Solaris']/release-date};

use XML::LibXML;
my $doc = XML::LibXML->load_xml(location=>$file);
for my $node ( $doc->findnodes($xpath) ) {
	print "XML::LibXML: ",$node->textContent,"\n";
}

use XML::XPath;
my $xp = XML::XPath->new(filename=>$file);
my $nodeset = $xp->find($xpath);
for my $node ($nodeset->get_nodelist) {
	print " XML::XPath: ",$node->string_value,"\n";
}

__END__

XML::LibXML: 2002-11-27
 XML::XPath: 2002-11-27