Help for this page
{ # do { stmt; ... stmt; redo if $cond; # } while ($cond); }
{ # repeat { stmt; ... stmt; redo unless $cond; # } until ($cond); }
{ last unless $cond; # while ($cond) ... stmt; redo; # wend }