$hex = sprintf('%X', oct("0b$bin"));