$ perl5.6.2 -we'$x = "\x01"; printf "%0v8b", $x'
00000001
$ perl5.6.2 -we'$x = "\x01\x02"; printf "%0v8b", $x'
00000001.00000010