[Phoenix-pm] A novice logs onto IRC and asks how to sort without using sort...

[Scott Walters]

<xmath> perl -0777 -pe '1 while s/^(.*\n)(.*\n)(??{$^Nge$1&&qr[(?!)]})/$2$1/gm'

Ask a stupid question... >=)

-scott