in reply to Randomize word

$ perl -MList::Util=shuffle -wle 'print join "", shuffle split //, shi +ft' hotel othle