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