do { ... } while $reply !~ /^[a-z]$/;