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