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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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, 70, 5, 80)){ print "$b[$_]"; }

##</code><code>##

ol oeti?sjnhe"nh ejtC nh

##</code><code>##

26 J
27 u
28 s
29 t
4, ' '
21, a
6,  n
16, o
20, t
88, h
5,  e
80, r
4,  ' '
57, P
5,  e
80, r
8,  l
9,  ' '
88, h
21, a
103, c
70, k
5,  e
80  r