in reply to out of loop

while (foo){
   last if bar;
   #rest of code
}

[download]

In Section Seekers of Perl Wisdom