s%.%$_["@-"].=$&%egfor<>;$,=$/;print@_