title: Perl New Line separator issue
body: <p>I have a file that uses CR/LF to separate records, but individual records sometimes contain a LF.</p>
  
  <pre><code>while (&lt;$in&gt;)
  { 
      #extract record data
  }
  </code></pre>
  
  <p>I am trying to read this code as above and this (as I would expect) splits the records that contain a LF only. I would however have expected that a reassigned <a href="http://perldoc.perl.org/perlvar.html#%24/" rel="noreferrer"><code>$/</code></a> would resolve this issue but it does appear to cause the complete file to me read in one iteration.</p>
  
  <pre><code>$/ = "\r\n";
  while (&lt;$in&gt;)
  { 
      #extract record data
  }
  </code></pre>
  
  <p>Anyone here who can suggest a working solution?</p>
  
  <p>I am using Activestate Perl on Windows.</p>