$output =~ s/(.)/sprintf '%02x', ord $1/seg;
#                            ^

##</code><code>##

$output = unpack 'H*', $output;