note
extremely
<code>
$s = '\\Server\user\dir';
@tmp = split /\\+/, $s;
print join(" -- ", @tmp);
</code>
<p>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.
<p><i>-- <br>
$you = new YOU;<br>
honk() if $you->love(perl)</i>
157495
157495