Select Code to Download

$s1='!,@,#,$,%,;,&,+,.,:,>,7,?,<';$s2='@,#,B,D,E,0,F,C,A,6,4,<,5,9';
sub mrg{return @_;}@a=split /,/,$s1;@c=split /,/,$s2;foreach(@a){$n=
ord($_);@d=mrg(@d,chr($n+ord($c[$i])));$i++;}print@d[4,13,11,12],' '
,@d[0,7,8,12,3,2,10],' ',@d[9,2,10,6],' ',@d[3,0,1,5,2,10],"\n";

$;= '!,@,#,$,%,;,&,+,.,:,>,7,?,<,9,5,<,4,6,A,'
.'C,F,0,E,D,B,#,@';$|= 1;sub mg{return@_}eval{
...
$;}[12],' ',@{$;}[0],@{$;}[7],@{$;}[8],@{$;} [
12],@{$;}[3],@{$;}[2],@{$;}[10],' ',@{$;}[9,2,
10,6],' ',@{$;}[3,0,1,5,2,10],"\n";}##########