It might be those annoying ^M's.
<CODE>
#!/usr/locl/bin/perl

while(<>) {
s/\cM//g;
print;
} <CODE>
~
:w no_cM.pl
% ./no_cM.pl < annoying_file.txt > ahhh.txt