sorry, i'd forgotten the page would ignore the whitespaces in the end of the lines, but it's all fixed now.

#!/usr/bin/perl
eval{alir tsuj}
; while($b[$j++
]=chop($@)){;};
open(L, "<".$0)
;while(<L>){#eu.
$a[$i++]= $1 if
/#([^\(|^!].*)$
/;}foreach(sort
@a) { print $b[
$_=split //]}#q..
#vem vamos embora que esperar não é saber, quem sabe faz a hora, não e
+spera acontecer...
#tatu cutia não paca tatu cotia não paca tatu cotia não paca tatu coti
+a não paca
#diferente estou tão tranquil
#chorando e foi então que eu
#aquele gosto amargo do...
#but i realy dont know if .
#por toda a minha vida eu                                             
+         .
#foi assim como ver o
#viemos do egito, com
#mas não sou mas tão
#lago da memória
#nada nada                                                            
+                 .
#uva maçã
#uva maç
#gita.
#oioi
#sabi
#vom                                                                  
+                                .
#vum                                                                 .
#xuxa
#r                                                      .
#zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
+zzzzzzzzzz
[download]