putc$_[$.-1]while gets[$.]||$.=1