sub get_directory{
	my @dirs = glob("C:\\Documents and Settings\\mydirectory\\Desktop\\KOMP\\*");
	foreach my $maid_dir(@dirs){
		if (-d $maid_dir){ # directory check
			if ($maid_dir=~m%\d+\s[A-Z]%){ # match the dir name
				return $maid_dir; 
			}
		}	
	}		
}