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,<>);
In reply to Word Salad by bm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |