use XML::DOM;
use open OUT => ':utf8';
use open ':std';
# as before...
print $str;