perl -e"print substr(q,crazyinsomniac,,0,5).q, little thing ,,qq,called love\n,"

perl -e"print reverse q?I am the champion ;-)?"

perl -e"print ucfirst ~reverse ~q?!skcor neeuq?"