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; }