Heh, I like it

perl -Mstrict -we"my$x=qq&\n,!ooooooocaT !ocaT  !ocaT&;*_=$\=*&;print,
+,while $x=~s&.$&&s"

#or

perl -Mstrict -we'my$x=qq&\n,!ooooooocaT !ocaT  !ocaT&;*_=*\=*&;print,
+,while $x=~s&.$&&s'
[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;"