opendir(INCLUDES, $includesdir) or die $!;
@includefiles = grep (/exclusives\d+\.tmpl$/, readdir(INCLUDES));
closedir INCLUDES;

$num_of_files = scalar @includefiles;

# ...

$num = $num == 1 ? $num_of_files : 1;