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