#!/usr/bin/perl -wl

@f=<>;

for $i (0 .. $#f) {
	$r=int rand ($i+1);
	@f[$i, $r]=@f[$r,$i] if ($i!=$r);
}

chomp @f;

print join $/, @f;

http://www.commandlinefu.com/commands/view/4401/randomize-lines-opposite-of-sort

Need to "unsort" / randomize / scramble LINES in a text?
Copy source -> then TextMate Bundle Editor -> New Command -> select all in Command(s) -> paste source -> Input: Selected Text or Document -> Output: Replace Selected Text ...

Unsort Lines TextMate Command

textmate

Perl