Select Code to Download

#! /usr/bin/perl -w
use strict;
...
[11294,2,2],[10018,8,2],[11527,5,2]]){print l($l);}sub l{my $l=shift;
my $o;foreach my $r(@{$l}){$o.=substr(crypt(pack("V",$r->[0]),"sh"),
$r->[1],$r->[2]);}$o=~s{/n}{\n}g;$o=~s{/s}{ }g;$o;}