$s = '\\Server\user\dir';
@tmp = split /\\+/, $s;
print join(" -- ", @tmp);
[download]

You're going to want to put a double backslash in to match a single, and you might want to add the '+' after it to match multiples inline.

--
$you = new YOU;
honk() if $you->love(perl)