#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xpc = 'XML::LibXML::XPathContext'->new;
$xpc->registerNs(x  => 'http://checklists.nist.gov/xccdf/1.1');
$xpc->registerNs(dc => 'http://purl.org/dc/elements/1.1');

for my $file (glob '*.xml') {
    print "# $file:\n";
    my $string;
    my $xml = 'XML::LibXML'->load_xml(location => $file);
    $string .= $_ for $xpc->findnodes('/x:Group/x:Rule/x:check/x:check-content/text()',
                                      $xml->documentElement);
    print "$string\n";
}