$SourceHash->{$order_value} = $import_StringTable_xp_node->findvalue("value[\@language!=\"English\"]/text"); print XML_DIFF_FH $SourceHash->{$order_value} . "\n"; $SourceHash->{$order_value} = pack ("U*", unpack("C*", $SourceHash->{$order_value})); print XML_DIFF_FH $SourceHash->{$order_value} . "\n"; print STDERR Encode::is_utf8($SourceHash->{$order_value})?"1":"0";