my $var = 0x4628;
open my $report, '>utf8','C:report.txt' or die;
print $report chr($var)."\x{4628}";

##</code><code>##