Try the follwing:

Instead of:

do {
 ...
} while (expr);
[download]

use:

while (1) {
 ...
 last unless (expr);
}
[download]