Select Code to Download

my $num = hex(substr(("0"x12).$hex, -12, 4)) * 2**32
    + hex(substr(("0"x12).$hex, -8));