my $bin = sprintf "%b", hex $hex;