This script is inspired by the author William S. Burroughs. Burroughs used to write a page of prose, cut it up into random strips of paper, throw the paper up into the air and then reassemble them. The result was usually his final draft.

This (completely useless) script shuffles text passed in from STDIN. Words are delimited by either whitespace or upper case characters.

Piping perl -v to this snippet is my favourite so far. I mean, where else can you find this sentence: License, point be This the Software the Artistic provided for Larry more found GNU the you Binary Perl, `man

use Text::ParseWords; 
use List::Util qw(shuffle);
print map{" $_"} shuffle quotewords((time%2)?'\s+':'[A-Z]',0,<>);
[download]