Die do...until Schleife ist ähnlich wie die do...while Schleife nur das durch das until der Anweisungsblock so lange ausgeführt wird bis die Bedienung in until unwahr ist. Hier der Syntax.......

do{
      ANWEISUNG
    }until(BEDIENUNG==UNWAHR);

Auch hier gilt wie bei der do..while Schleife until mit einem Semikolon zu beenden. Hier unser Programmbeispiel von zuvor mit until...............

#!/usr/bin/perl -w

$wert=1;

do  {
      print "Quadratflächenberrechung.......Gehen sie die Seitenlänge ein : ";
      chomp($wert=<STDIN>);
      print "Quadratfläche = " . $wert*$wert . "\n";
      print "\nBeenden können sie mit der Zahl 0\n\n";
    }until($wert==0);

print "Programmende!\n";

Im Gegensatz vom Kapitel do..while wurde nur das while durch until und $wert!=0 durch $wert==0 ersetzt. Gesprochen heißt das unser Programm so lange ausgeführt wird bis der Inhalt von until wahr ist (bei while musste der Inhalt unwahr sein). Ist der Inhalt von until wahr wird das Programm nach until fortgesetzt.