if ($skip =~ m{,}) {
        @sks = split(',', "$skip");
	$si = $#sks + 1;
	for (my $i = 0; $i < $in; $i++) {
		for (my $j = 0; $j < $si; $j++) {       
			if ($dir[$i] =~ m{$sks[$j]}) {
				$num[$i] = 0 }}}}
elsif ($skip !~ m{,}) {
	for (my $i = 0; $i < $in; $i++) {
		if ($dir[$i] =~ m{$skip}) {
			$num[$i] = 0 }}}
else { print "$skip is not a directory. Please ensure $skip is a dir inside $in_dir." }