на перле просто перемешать строки в текстовом файле
use List::Util qw(shuffle);
open (F3,"bylo.txt")|| die "Not found!";
@data1=<F3>;
close (F3);
@data1=shuffle(@data1);
open (F4,">stalo.txt")|| die "Not found!";
print F4 @data1;
close (F4);
Оффтопик: для уникализации текста мало перемешивать строки..
надо слова
3 подряд идущих слова, которые поисковик уже встречал - и он считает контент не уникальным, ИМХО
ищ синонимизатор
только минус не ставь, пллз