perl> print unpack 'H*', pack 'N', unpack '%32C*', pack 'H*', $hex;;
00000531