Select Code to Download

my $perl_path = '/foo/bar/baz';
(my $win_path = $perl_path) =~ tr!/!\\!;
print "Perl still sees:  $perl_path\n";
print "But we can print: $win_path\n";

my $perl_path = '/foo/bar/baz';
print "This is the Windows path: ", win_path($perl_path), "\n";

...
    (my $path = shift) =~ tr!/!\\!;
  return $path;
}