use File::Spec;

my $path = '\\\\Srvbuild\e\ADW61\VENDOR\MICROSOFT\PLATFORMSDK\INCLUDE';
print join $/, File::Spec->splitpath( $path );