in reply to One Liner to strip crlf

So, as GotToBTru pointed out basic loop control won't work, and as roboticus points out, most benefit would be from avoiding unnecessary I/O. This means you can't use the -i flag, and would need to handle the file replace yourself. Something like (untested): 
perl -ne 's/\r$// or last; $t.=$_; if (eof) {close ARGV; open $fh, ">"
+, $ARGV or die; print $fh $t}' files

[download]

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

In Section Seekers of Perl Wisdom