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"; sub win_path { (my $path = shift) =~ tr!/!\\!; return $path; }