Here is some code to further illustrate

use XML::Writer;
use IO::File;
$fh = IO::File->new();
open($fh, '>', \$doc);
$xml = XML::Writer->new(DATA_MODE => 1, DATA_INDENT => 2, OUTPUT => $f
+h);
$xml->startTag('root');
$xml->emptyTag('elem', attr => '®');
$xml->endTag('root');
$xml->end;
print $doc;
[download]

This prints out...

<root>
  <elem attr="&amp;reg;" />
</root>
[download]

However, what I wanted was...

<root>
  <elem attr="&reg;" />
</root>
[download]

Is this possible with XML::Writer?