do {
.....
    last if $some_condition;
} while($some_other_condition);