print join "\n", map { 
   "0x" . unpack("h2", ord($_)) 
} split //, $field;
print $/;