( my $b= '//machine1/d$' ) =~ tr-/-\\-;