foreach my $banned ( @bannedF ) { 
  return BANNED if ( $folder eq $banned ); 

  if( $mode == INC_SUBDIRS ) { 
     $folder =~ /^($banned).*/; 
     print "$_ out of $#bannedF - $banned - regex value: $1\n";
     return BANNED if ($1); 
  }
}