"Ron Wingfield" <[EMAIL PROTECTED]> wrote:
[skip]
> while (defined($line = <INFILEHANDLE>)) {
> $line =~ s/\r//g;
> printf OUTFILEHANDLE ("%s"), $line;
> }Why not this one? $line =~ s/\r$//; I didn't see anything about removing ^M anywhere in original post, only at end of line. -- Oleg "Rowaa[SR13]" V. Volkov -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
