Select Code to Download

sub _escapeLiteral {
  my $data = $_[0];
...
  }
  return $data;
}

use strict;
use warnings;
...
$Writer->end();

print $Writer->to_string;

<root>
  <str1>one&lt;two</str1>
...
  <str4>Caisse D"Eparge</str4>
  <str5>Caisse D'Eparge</str5>
</root>