$|=print"? ",/.$/g,$a//=$&,$/while<>