Are you sure you will get CR LF at the line end on every system? read perldoc perlport: 
       In most operating systems, lines in files are terminated by newlines.
       Just what is used as a newline may vary from OS to OS.  Unix tradition-
       ally uses "\012", one type of DOSish I/O uses "\015\012", and Mac OS
       uses "\015".

       Perl uses "\n" to represent the "logical" newline, where what is logi-
       cal may depend on the platform in use.  In MacPerl, "\n" always means
       "\015".  In DOSish perls, "\n" usually means "\012", but when accessing
       a file in "text" mode, STDIO translates it to (or from) "\015\012",
       depending on whether you're reading or writing.  Unix does the same
       thing on ttys in canonical mode.  "\015\012" is commonly referred to as
       CRLF.
$\=~s;s*.*;q^|D9JYJ^^qq^\//\\\///^;ex;print

In reply to Re^2: create separate output files based on the matched values by Skeeve
in thread create separate output files based on the matched values by tariqahsan

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.