print Encode::is_utf8($sInstrumentNameJ), "\n"; #### print unpack("H*", $sInstrumentNameJ), "\n";