Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<results>
...

  </document>
</results>,

!/usr/bin/perl
...
$doc->{document}->{$key}->{sourcecategory}, ",", 
$doc->{document}->{$key}->{schemeversion}, ",", "\n";
}

2006/01/25,\2006\200601\20060125\20060125_18.txt,News Archive,1.1
2006/01/25,\2006\200601\20060125\20060125_19.txt,News Archive,1.1,3,Ta
+rget,P6
2006/01/25,\2006\200601\20060125\20060125_19.txt,News Archive,1.1,12,G
+ood,P6