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

##</code><code>##

    $bob = pack("B*","1.11011001001e+015")