do { … } while length $reply and …