FILE:
while ( my $file = $DIR> ) {
   ...
   last FILE if ( condition1 );
   ...
   redo FILE if ( condition2 );
}