[0] Perl> $x = join '', map chr( rand 256 ), 1 .. 1000;;
[0] Perl> print unpack '%8b*', $x;;
47
[0] Perl> print unpack '%16b*', $x;;
3887
[0] Perl> print unpack '%32b*', $x;;
3887
[0] Perl> print unpack '%64b*', $x;;
3887