$/=$_ while$/>gets(1)?putc(A>$_?$_:$/):A=$/