>perl -le"$h = uc unpack 'H*', qq{123\t\n}; $h = ~ s/(..)/$1 /g; print $h"
31 32 33 09 0A