Select Code to Download

[0] Perl> $a = 0; print size $a;;
24
...
  PV = 0x3ecd828 "\0"\0
  CUR = 1
  LEN = 8

[0] Perl> $x = join '', map{ rand() < 0.5 ? 0 : 1 } 1 .. 880;;
[0] Perl> print size $x;;
...
  PV = 0x3dff038 "l\347@\35\277\361\3333\370\2557ki(\347\6D\274\243\37
+7*\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\2
+46g\326e\37\36\23j5\2\346\324O\v|\272s\236\3"\0
  CUR = 110
  LEN = 112