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