while ( $condition1 ) {

  ...

  next if $condition2;

  ...

}

continue {

 --$loop;
 last;

}