my $path = '\\\\Srvbuild\e\ADW61\VENDOR\MICROSOFT\PLATFORMSDK\INCLUDE';
print join $/, $path =~ /((?:\\[^\\]*){3})(.*)/;