Select Code to Download

Select or download this

my @subdir = File::Find::Rule
                  ->directory
                ->not_name('*_vti_*','*_templates*','*_themes*','*_ove
+rlay*','*_borders*')
                  ->in($webpages);

Select or download this

my @subdir = File::Find::Rule
                  ->directory 
                  ->not_name(qr/\Q_vti_\E/,qr/\Q_templates\E/,qr/\Q_th
+emes\E/,qr/\Q_overlay\E/,qr/\Q_borders\E/)
                  ->in($webpages);