>perl -le"print substr +(reverse unpack 'B*', pack 'd', shift), 12" .1
1101100110011001100110011001100110011001100101011001
  ^^^^ period

>perl -le"printf '%.16e', shift" .1
1.0000000000000001e-001
                 ^ error