123456789_123456789_123456789_123456789_123456789_123456789_1
perl -e'@l=<>;while(@l){$i=rand@l;print$l[$i];splice@l,$i,1}'

##</code><code>##

This
is
some sample
input that
CheeseLord
put here
for you.

##</code><code>##

input that
for you.
put here
CheeseLord
is
some sample
This