BOL

If I understand your question correctly, you are looking for script to change the path between Linux and Window. You cab achieve this with following

my $lin_path = '/foo/bar/dna';
(my $win_path = $lin_path) =~ tr!/!\\!;
print "path in Linux:  $lin_path\n";
print "path in Window: $win_path\n";