perl -e "print join '', reverse (split //, "Monks");"