Select Code to Download

bytes($clob) ;
bytes($convertedstr) ;
...
  use bytes ;
  print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- $w
+\n" ;
} ;