$ perl -wE 'say unpack "H*", "a1"'
6131
 ~~