Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE TEI.2 SYSTEM "tei-epidoc.dtd" >
...
</text>

</TEI.2>

#!/usr/bin/perl
use warnings;
...
    
    foreach my $node ($nodeset->get_nodelist) {
        print XML::XPath::XMLParser::as_string($node), "\n\n"; }

501 Protocol scheme 'e' is not supported e:/tei-epidoc.dtd
Handler couldn't resolve external entity at line 2, column 40, byte 80
...
<TEI.2 lang="eng" id="eAla224">
  <teiHeader status="new" type="text">
 at C:/Perl/lib/XML/Parser.pm line 187