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'