Select Code to Download

#!/usr/bin/perl -w
use strict;
...
      print map { chr($r) if($l == ($n += $_)) }
            qw(100 43 6 159 12 4 28 96 15 72 2 72 158 338
               275 34 60 155 327 38 153 18 119 271 212 57); } (1 .. 28
+25);

#!/usr/bin/perl -w
use strict;
...
      print map { chr($r) if($l == ($n += $_)) }
            qw(253 170 79 20 166 414 240 374 123 32 149 95
               56 64 128 185 7 72 316 323 40 67 216 8 17 19); } (1 .. 
+3635);