Select Code to Download

Select or download this

$xml = "<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="/templates/xsl/abc/search/searc
+hRetrieveResponse.xsl"?><searchRetrieveResponse xmlns="http://www.abc
+/srw/">
...
      </record>
      </records>
</searchRetrieveResponse>";

Select or download this

my $x = new XML::LibXML();
my $data = $x->parse_string($xml);
...
       my $title = $rec->findnodes('title')->string_value();
              print STDERR $title . "\n";
        }