use bigint;print pack'H*',as_hex{<>+0}=~/4.+/g