perl -e "print sort {rand > .5} split //, qq(More Text)"