for (0..$#bannedF)
   {
      return BANNED if ($folder eq $bannedF[$_]);   # if folder is directly equal to a banned folder
      if ($mode == INC_SUBDIRS) # if a parent folder is banned then so are the subfolders unless otherwise stated
      {
         $folder =~ /^($bannedF[$_]).*/;
         print "$_ out of $#bannedF - $bannedF[$_] - regexp value : $1\n";
         return BANNED if ($1); # example : $folder = c:\temp\one; $bannedF[$_] = c:\temp
      }
   }

##</code><code>##

@bannedF = ("c:\\win32app\\toolkit",
            
            "c:\\winnt",
            "C:\\WINNT\\system32",
            
            "d:\\perl",
            "d:\\brossad");

my $folder = "c:\TEMP\sdfs";

##</code><code>##

0 out of 4 - c:\win32app\toolkit - regexp value :
1 out of 4 - c:\winnt - regexp value :
2 out of 4 - C:\WINNT\system32 - regexp value :
Can't find unicode character property definition via main->e or e.pl at unicode/Is/e.pl line 0
Press any key to continue . . .