Try this:

    $ perl -e "print 1110110010­010000"
    1.11011001001e+015
[download]

You are entering a very big number (in base 10, no less). You need to put quotes around those long strings of ones and zeros. Your code is doing the same thing as:     $bob = pack("B*","1.11011001001e+015") where "." (byte 46, even) is the same as "0" while "e" and "+" (bytes 101 and 43, both odd) are the same as "1".

Though I'm not sure why you get what you report for $bobupacked (in part because you don't show enough of that part of the code).

        - tye (but my friends call me "Tye")