sub hexout
{
  #23456789012345678901234567890123 - 33 char
  $_=unpack"H*",pop;s/(..)/$1 /g;$_
}