{                       # do {
   stmt;
   stmt;
   stmt;
   redo if $cond;       # } while ($cond);
}

##</code><code>##

{                       # repeat {
   stmt;
   stmt;
   stmt;
   redo unless $cond;   # } until ($cond);
}

##</code><code>##

{
   last unless $cond;    # while ($cond)
   stmt;
   stmt;
   stmt;
   redo;                 # wend
}