s/.../unpack b8,chr hex$&/ge,s/.{9}/print pack b8,$&/gefor<>