until ($COND) {
    some($stuff);
    if ($THIS) {
        do($that);
    }
    else {
        do($anything);
    }
}