Select Code to Download

perl -e 'eval{alir tsuj}; 1 while($b[$j++]=chop($@)); print @b;'

.1 enil e- ta )?"just" daol ot togrof uoy spahrep( "just" egakcap aiv 
+"rila" doh

turo@indus:/tmp$ perl -ne 'print $_,"\n" for ((/#([^\(|^\!].*)$/))' p.
+pl | sort | perl -ne 'print (scalar(split //),", ")'

26, 27, 28, 29, 4, 21, 6, 16, 20, 88, 5, 80, 4, 57, 5, 80, 8, 9, 88, 2
+1, 103, 70, 5, 80

perl -e 'eval{alir tsuj}; 1 while($b[$j++]=chop($@)); for ((26, 27, 28
+, 29, 4, 21, 6, 16, 20, 88, 5, 80, 4, 57, 5, 80, 8, 9, 88, 21, 103, 7
+0, 5, 80)){ print "$b[$_]"; }

ol oeti?sjnhe"nh ejtC nh

26 J
27 u
...
70, k
5,  e
80  r