if (/^C:\\.*?\\(.*?)\\.*$/) {
  $subdir1 = $1;
}