@folders=glob("*"); #to get all folders in directory; extension ("*") as wildcard to get all names
foreach$folder(@folders) #to speak to each element in directory
	{
	next if ($folder!~/^UNITAS_/); #skip elements which do not start with "UNITAS"