#!/usr/bin/perl -w
use strict;

srand(42);
map { my $l = $_;
      my ($n, $r) = (0, int(rand(128)));
      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);