perl -MList::Util=shuffle -e '$/="\n%\n";print +(shuffle<>)' fortune.txt > randomised.txt