if(search($file, $searchString)) { 

	print "\tFound: $file\n";

		foreach(@dir) { 

			if(/^.*?\s+([A-Z]{1}$numSet\.\S{3})$/) {

			my $found = join('\\', ($dirPath, $1));
			print "\tFound: $found\n"; 
		}
	}
}