#!/usr/bin/perl

use strict;
use XML::LibXML;

my $fh = *DATA;
my $parser      = XML::LibXML->new();
$parser->expand_entities($ARGV[0]);
my $doc         = $parser->parse_fh( $fh );
my $root        = $doc->getDocumentElement;

print $root->toString(1, 1), "\n";

__END__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE author [
  <!ELEMENT author (#PCDATA)>
  <!ENTITY js "Jo Smith">
]>
<author>&js;</author>

##</code><code>##

<author>Jo Smith</author>

##</code><code>##

<author>&js;</author>