my $bin = sprintf "%19b", oct '0x'.$hex;