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