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

##</code><code>##

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