After ten years it may suprise you that you have not discovered a mysterious bug. Split does work. On Windows. I am on Windows. Your code will be wrong. You don't show any. I have asked you to specify 1) this is data in 2) this is how I want it to come out three time now. Which bit is confusing you. You have not. I am tired of wasting my time on you. This works perfectly. Look. Listen. Learn.

C:\>type test.pl

my $line = 'C:\just\work\split\fine';
@data = split /\\/, $line;
$new = join "\\", @data[0,3,2,4];
print "\nHad => $line\n", "Got => $new\n\n";

C:\>perl test.pl

Had => C:\just\work\split\fine
Got => C:\split\work\fine

C:\>
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print