print $report chr(hex $var). "\x{4628}";