until uc $result eq "END";