Select Code to Download

use constant {
    SIGNBIT => 0x8000_0000_0000_0000,
...

    sprintf "%s0x%1u.%013xp%+d", $sign, $hid, $mant, $exp;
}

my %float_hex_defaults = (
    infinite_string => "inf",
...
            $exp < 0 ? "exp_neg_sign" : "exp_pos_sign"),
        $nexpdigits, abs($exp));
}