use bigint; my $n = hex(unpack('H*', "\x00\x00\x00\x00\x00\x00\xd3\xc2\x1b\xce\xcc\xed\xa0\xff\xff\x9c")); substr $n, -2, 0, '.';