use Encode qw( encode XMLCREF );
print XML encode('ascii', $cureq, XMLCREF);