$fertig = 0;

do {
    ...
    if (bedingung) {
        print "beeb "; #oder welche Aktion auch immer
        $fertig = 1;
    }
} while (!$fertig);