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