$first = unpack 'd', pack 'b64', '1001110001010011100010111001000010000101000001010110011000000010';; $second = unpack 'd', pack 'b64', '1010110001010011100010111001000010000101000001010110011000000010';; printf "%f %f :> %17.17f\n", $first, $second, $first - $second;; 181.019658 181.019658 :> 0.00000000000011369