$,=$/,$/=\1,map/
/?$;=0:$_[$;++].=$_,<>;print@_