while (1) {
    ....
    ....
    last unless (EXPR);
}