You can go further from here

$_ = q(\\server\share//folder/subfolder);
my($rootdir,$userdir)= split m[\Q//\E];
print join "\n", ($rootdir,$userdir),"\n";
[download]

artist