{
  stuff
  more stuff
  last if $cond; # middle exit
  still more stuff
  again more stuff
  redo if $cond; # repeat as long as $cond is true
}

##</code><code>##

OUTERLOOP: {
  blah
  while ($foo) {
    blah
    next OUTERLOOP if $cond;
    blah
  }
  blah
} continue {
  redo if $cond;
}