$_=join"",<>;print/^./mg while s///g