Select Code to Download

#!/usr/bin/perl

...
       })
   )/$^R\n/xsgr . sprintf "%08x\n", length $data;
   }

00000000  6f 6e 65 0a 74 77 6f 0a  74 68 72 65 65 20 91 92  |one.two.t
+hree ..|
00000010  20 66 6f 75 72 0a 66 69  76 65 0a 6f 6e 65 0a 74  | four.fiv
+e.one.t|
...
00000020  77 6f 0a 74 68 72 65 65  20 2c 2c 20 66 6f 75 72  |wo.three 
+,, four|
00000030  0a 66 69 76 65 0a                                 |.five.|
00000036