$ perl -e "  print unpack q[H*], join q[],@ARGV "  1 "<" 3 " Foo"
313c3320466f6f
$ perl -e "  print pack q[H*], join q[],@ARGV "  313c3320466f6f
1<3 Foo