tricky perl question - ascending order

[Jozsi Vadkan]

Please god, tell me, how does this "magic" work?

http://pastebin.com/raw.php?i=Cr6WzdGv

Thank you!!



> Jozsi Vadkan writes:
> 
> > or maybe in bash..
> > script/"one liner" e.g.: input: http://pastebin.com/raw.php?i=pMZPEsMZ
> > 
> > i want to make this output from it:
> > http://pastebin.com/raw.php?i=kH8VxT0A
> > 
> > 
> > So from the input, i want to make an ascendant order, how many things
> > are under a "SOMETHING-XX"
> 
> You reversed your URLs.
> 
> perl -e 'while (<>) { push @a,"" if /./ && ($#a < 0 || $a[$#a] =~ /\n\n$/s); 
> $a[$#a] .= $_} print join("",sort @a);'
>