print join(',',Substed(split(/\//,cwd)));

##</code><code>##

C:\>perl -MCwd -MWin32::FileOp -e "..."
,HarddiskVolume1

X:\>perl -MCwd -MWin32::FileOp -e "..."
\??\C:\temp,

Z:\>perl -MCwd -MWin32::FileOp -e "..."
\??\C:,

O:\>perl -MCwd -MWin32::FileOp -e "..."
,LanmanRedirector\;O:000000000002ef75\SOME-MACHINE\Network\Share