f5e23cd
#! /usr/bin/perl -w
f5e23cd
f5e23cd
undef $/;
f5e23cd
print join("\n\n", sort split(/\n\n/, <>)), "\n\n";