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

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

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

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"