do {{
    $bar;
    baz() or next;
}} while $foo;

##</code><code>##

{ do {
    $bar;
    baz() and last;
} while $foo; }

##</code><code>##

LOOP: { do {{
    $bar;
    baz() or next;
    quux() and last LOOP;
}} while $foo; }

##</code><code>##

while(1) {
    $bar;
    baz() or next;
    quux() and last;
}