use warnings;
use strict;
use XML::LibXML;

my $doc = XML::LibXML::Document->createDocument('1.0', 'UTF-8');
my $req = $doc->createElement('requirements');
$doc->setDocumentElement($req);
my $desc = $doc->createElement('description');
my $str = "\N{U+E0}\N{U+E9}\N{U+E8}\N{U+E7}\N{U+FB}\N{U+EE}\N{U+F9}\N{U+F4}";
$desc->appendText($str);
$req->appendChild($desc);
$doc->toFile('out.xml',1);