[0] Perl> $x = join '', map{ rand() < 0.5 ? 0 : 1 } 1 .. 880;;
[0] Perl> print size $x;;
936
[0] Perl> print Dump $x;;
SV = PV(0x3e964e0) at 0x337708
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x3e8d8c8 "00110110111001110000001010111000111111011000111111011011110011000001111110110101111011001101011010010110000101001110011101100000001000100011110111000101111111110101010010100111101111001100011111001001100001011000010010111001101000110000110110011001011101111000000101000111100101011111101010111111001001000001111101100011011111101110001000001110101010000100010000011101001111100101001001010110111001010110000110001001011101010010000010001011011
  CUR = 880
  LEN = 888

[0] Perl> $y = pack 'b*', $x;;
[0] Perl> print size $y;;
160
[0] Perl> print Dump $y;;
SV = PV(0x3e967b0) at 0x3e6c3f0
  REFCNT = 1
  FLAGS = (POK,pPOK)
  PV = 0x3dff038 "l\347@\35\277\361\3333\370\2557ki(\347\6D\274\243\377*\345=\343\223\241!\235\305\260\231\356\201\342\251_\375$\370\306~Gp\25\"\270|Jj\247\206\221\256\4\321\16\262?\334\355\22\304S\370nh\325%\232K\376\235\34\35L\377\330\4a6\314_\314\222\336\373\375\371m[\246\246g\326e\37\36\23j5\2\346\324O\v|\272s\236\3"\0
  CUR = 110
  LEN = 112