my $exit = '';
until ($exit) {
    ... code where $exit never becomes TRUE ...
}