if (($localdir =~ m/^[\w\W\s\S]+\\((H|HD)[0-9]{1,3}(FA|FC|C|P|CO)[0-9]{1,3})/i) or ($localdir =~ m/^[\w\W\s\S]+\\((FC|LM|CO)+[\w\W\s\S]+)/i)) { $tcId = $1; } else { die "TC directory structure is not proper!"; }