s/.../unpack b8,chr hex$&/ge,print pack'(b8)*',/.{9}/gfor<>