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