while (1) {
    last unless (EXPR);
    # code
} continue {
    # code
}