my $s = '\\\\10.0.0.1\\path\\to\\foo';
print("$s\n");     # \\10.0.0.1\path\to\foo 
$s =~ tr/\\/\//;
print("$s\n");     # //10.0.0.1/path/to/foo 

##</code><code>##

my $s = '\\\\10.0.0.1\\path\\to\\foo';
print("$s\n");     # \\10.0.0.1\path\to\foo 
$s =~ tr{\\}{/};
print("$s\n");     # //10.0.0.1/path/to/foo