binmode HANDLE, ':crlf';
[download]

If not, try asking a more specific question.

# Any system
binmode $fh;
local $/ = "\x0D\x0A";
while (<$fh>) {
   chomp;
   ...
}
[download]

Note that Perl on Windows system covertly converts CRLF to LF on input, so you don't have to do anything.

# Windows only
while (<$fh>) {
   chomp;
   ...
}
[download]

I'm trying to add the CR/LF in a line feed text file. The text file when I get it is on long line with no CR/LF in it.I want to create a new line at every 90th character.

In that case, I pretty much answered this question yesterday.

From a file handle:

binmode $fh_in;
binmode $fh_out;

local $/ = \90;
while (<$fh_in>) {
   print $fh_out "$_\x0D\x0A";
}
[download]

From a string:

binmode $fh_out;

while (length($str)) {
   my $rec = substr($str, 0, 90, '');
   print $fh_out "$rec\x0D\x0A";
}
[download]

If you want CRLF when run on Windows and LF when run on other OSes, get rid of the binmode and replace \x0D\x0A with \n.

As a one-liner

perl -ple"BEGIN{ $/ = \90; }" infile > outfile
[download]

See perlrun for details of the switches.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

It is going to be used on a Windows system. I'm not sure what the best approach to adding the CR/LF at every 90 position.