#!/usr/bin/perl

use strict;
use XML::LibXML;

my $fh = *DATA;
my $parser      = XML::LibXML->new();
$parser->expand_entities(0);
my $doc         = $parser->parse_fh( $fh );
my $root        = $doc->getDocumentElement;
my $format      = 1;
my $docencoding = 1;

foreach my $xform_node ($root->findnodes('jobs/job')) {
    next if($xform_node->nodeType != &XML_ELEMENT_NODE);

    my $path        = $xform_node->findvalue('info/directory');
    my $xmlstring   = $xform_node->toString($format,$docencoding);

    print "$path\n";
    print "$xmlstring\n";
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<repository>
<jobs>
<job>
  <name>Screening</name>
  <directory>&#47;Biometrics&#47;TestCase</directory>
  <created_user>admin</created_user>
  <created_date>2007&#47;11&#47;29 15:29:07.000</created_date>
  <modified_user>admin</modified_user>
  <modified_date>2008&#47;02&#47;11 15:58:28.000</modified_date>
</job>
</jobs>
</repository>