while(1) {
    ...
} continue {
    last unless $condition;
}