$-=1;print$-=s/$-//?$_:$-,$/for<>