RE: My favorite looping mechanism in Perl is:

[merlyn]

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;
}

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

[gaudior]

This is not an original observation, but you are one sick man. ;-)

Thanks, Randal, for the insights you have shared in actually USING perl over the years.

We appreciate it greatly.