my ($subdir1) = /^C:\\[^\\]+\\([^\\]+)/;