$string = $parser->parse(Source => { Encoding => 'ISO-8859-1',
                                     String => <<"EOF;" } );
<!DOCTYPE foo
  [
    <!NOTATION bar PUBLIC "qrs">
    <!ENTITY zinger PUBLIC "xyz" "abc" NDATA bar>
    <!ENTITY fran "fran-def">
    <!ENTITY zoe  "zoe.ent">
   ]>
<foo>
  First line in foo
  <boom>Fran is &fran; and Zoe is &zoe;</boom>
  <bar id="jack" stomp="jill">
  <?line-noise *&*&^&<< ?>
    1st line in bar
    <blah> 2nd line in bar </blah>
    3rd line in bar <!-- Isn't this a doozy -->
  </bar>
  <zap ref="zing" />
  This, '\240', would be a bad character in UTF-8.
</foo>
EOF;

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<foo>
  First line in foo
  <boom>Fran is fran-def and Zoe is zoe.ent</boom>
  <bar id="jack" stomp="jill">
  <?line-noise *&*&^&<< ?>
    1st line in bar
    <blah> 2nd line in bar </blah>
    3rd line in bar <!--  Isn't this a doozy  -->
  </bar>
  <zap fubar="1" ref="zing"></zap>
  This, 'Â ', would be a bad character in UTF-8.
</foo>

##</code><code>##


$expected = <<"EOF;";
<?xml version="1.0" encoding="UTF-8"?>
<foo>
  First line in foo
  <boom>Fran is fran-def and Zoe is zoe.ent</boom>
  <bar id="jack" stomp="jill">
  <?line-noise *&*&^&<< ?>
    1st line in bar
    <blah> 2nd line in bar </blah>
    3rd line in bar <!--  Isn't this a doozy  -->
  </bar>
  <zap fubar="1" ref="zing"></zap>
  This, '\302\240', would be a bad character in UTF-8.
</foo>
EOF;

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<foo>
  First line in foo
  <boom>Fran is fran-def and Zoe is zoe.ent</boom>
  <bar id="jack" stomp="jill">
  <?line-noise *&*&^&<< ?>
    1st line in bar
    <blah> 2nd line in bar </blah>
    3rd line in bar <!--  Isn't this a doozy  -->
  </bar>
  <zap fubar="1" ref="zing"></zap>
  This, 'ÃÂ ', would be a bad character in UTF-8.
</foo>