($dataSet) = $dir =~ m|/(APR\w\w-\w{4}-\w{4}).*?$|;