In a message dated 98-10-25 16:07:10 EST, you write:
<< #!/usr/bin/perl
while ($line = <STDIN>) {
$line =~ tr/\r//;
print $line;
} >>
how about the same thing as :
perl -i -n -e"s/\r//" file1 file2 ....
Saves having to create intermediate files for output and scripts. This will
modify file1 file2 in place i.e. directly.
--