I tend to avoid the do {...} while $cond loop because it's not a real loop. You can't use next/last/redo with it. As I said in this week's poll, I use a naked block with last and redo:

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

This way you can name the loop (for multiple break-outs). If you want next OUTERLOOP to work, you merely next to add additional continue block:

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

Naked blocks are fun!

-- Randal L. Schwartz, Perl hacker