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, '.';
[download]

What's tedious about this?