do {
    ...
} while($condition)

##</code><code>##

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

##</code><code>##

LOOP:
    ...
    goto LOOP if $condition;