use XML::XPath;
use XML::XPath::XMLParser;

my $filelist = shift;

#Process file list
open(FILELIST, "$filelist") or die("Unable to open file");
my @files = <FILELIST>;
close(FILELIST);


	foreach $page (@files) {
		my $xp = XML::XPath->new(filename => $page);
		my $nodeset = $xp->find('//DCR'); # find all DCRs
		
		my @nodelist = $nodeset->get_nodelist;
		#@dcrs = map($_->string_value, @nodelist);
		@dcrs = map {$_->string_value ? $_->string_value : ()} @nodelist;
		foreach my $dcr(@dcrs) {
		   print "$dcr\n";
		} 
	}