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

##</code><code>##

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