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

ilis  iensTha