my $dirs = '/directory/subdirectory/webstuff';

find( \&findstuff, map "$dirs/$_", qw(!zz));