# Encode

    $ perl -le 'print join " ", map {ord pack "H2", $_} shift =~ /../g' 019774
    1 151 116


    # decode

    $ perl -le 'print unpack "H*", pack "C*", @ARGV' 1 151 116
    019774