#!/usr/bin/perl -wd

while(<>) {
        chomp;
        print $_, "\n";
}
[download]

While in the debugger, display $_ (x $_) after the chomp. Do you see something like this: "blah blah blah\cM"? That control-M is the carriage return. Some editors may also show the carriage return (vi) if configured properly. chomp removes any trailing string that corresponds to the current value of $/. In this case only the unix newline will be removed. You could be more destructive and remove all whitespace at the end of a line with a regex such as s/\s+$//. That would work on both platforms and you wouldn't have to worry. Or you could ensure your transfer process does the correct translation for you.

-derby

  $count= length($line);
  $count-- if substr($line,-1) eq "\r";
[download]

Are you sure the files are the same, i.e. if you transfered them by FTP, did you use ASCII mode? Something might have gone wrong in that stage somewhere.

Just my 2 cents, -gjb-