Select Code to Download

use strict;
use warnings;
...

binmode STDOUT, ":encoding(utf8)";
print $str;

use strict;
use warnings;
...

binmode STDOUT, ":encoding(utf8)";
print HTML::Entities::decode ($str);