perl -Mstrict -we 'my$x="\n,rekcaH lreP rehtona tsuJ";*_=*&;print while $x=~s&.$&&s'