sub s2b {   # slash to backslash
  (my $str = shift) =~ tr#/#\\#;
  return $str;
}
 
my $path = s2b '//some.address.or.whatever/subdir/';