print join " ", unpack "C*", $str;
   print "\n";