One way to do it:

perl -MList::Util=shuffle -e "print shuffle split //, qq(This is a lin
+e)"

ilis  iensTha
[download]