My favorite construct is the naked block, together with redo and last to trigger restart and exit:

{
  blah;
  blah blah;
  last if $some_condition;
  more blah;
  more blah blah;
  redo if $some_other_condition;
}
[download]

There... we've got a middle-exiting loop, guaranteeing at least one execution of the first part. Who says we don't have an easy "do-while" loop!

-- Randal L. Schwartz, Perl hacker