@_=<>=~/./g;print(@_,$/),@_=(pop@_,@_)for 0..$#_