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

##</code><code>##

use File::Spec ();
my ($subdir1) = (File::Spec->splitdir(File::Spec->rel2abs($_)))[2];