First, you mean "Line Feed" (chr(10)), not "Carriage Return" (chr(13)).

Second, providing the desired output along with a sample input is very useful, especially when you have problems explaining what you want.

Finally, we've coverered that Text::Wrap broke on word boundaries on the first day, before you even started using Text::Wrap. Not only did I say "Text::Wrap will only break on a word boundary.", I provided code that broke on the 80th column unconditionally.

Let's go back to that code and fix it for the then-unmentioned requirements to remove existing line breaks. 

my $text = do { local $/; <> };
$text =~ tr/\n//d;
$text =~ s/(.{80})/$1\n/g;
$text =~ s/(?!<\n)\z/\n/;
print($text);

[download]

Usage: 

perl script.pl infile > outfile

[download]

Or if you want to modify it in-place: 

perl -i.bak script.pl file

[download]

Output for provided input: 

ISA*00*          *00*          *28*9000000454     *ZZ*J00370         *
+070926*034
2*U*00401*000489661*0*P*:~GS*HP*9000000454*J00370*20070926*03421826*48
+9660*X*004
010X091A1~ST*835*489662~BPR*I*6519.36*C*ACH*CCP*01*075906003*DA*000019
+4917*13518
40597*00454    *01*021000021*DA*304677450*20070926~TRN*1*EFT2545408*13
+51840597*0
0454~DTM*405*20070925~N1*PR*NATIONAL GOVERNMENT SERVICES  00454~N3*515
+1 CAMINO R
UIZ~N4*CAMARILLO*CA*930128645~REF*2U*00454~N1*PE*GOLDEN LIVINGCENTER F
+OLEY*FI*20
4120517~N3*1000 FIANNA WAY~N4*FORT SMITH*AR*72919~REF*PQ*015032~LX*210
+712~TS3*01
5032*21*20071231*8*19760.22*9175.8*10584.42**8905.8**-2334****9175.8*2
+604*******
8*8905.8~TS2*11509.8**********2*41*41~CLP*0073294416 070299289*19*856.
+96*769.14*
*MA*20725800001702*21*2~CAS*CO*94*-284.18~CAS*PR*2*372*0~NM1*QC*1*BRAD
+Y*LEO*F***
HN*140079398A~NM1*82*2*GOLDEN LIVINGCENTER FOLEY*****XX*1538110192~NM1
+*TT*2*WPS 
- TRICARE FOR LIFE*****PI*000060000~MIA*0***1141.14*MA02**********3***
+**MA44~REF
*EA*0073294416~DTM*050*20070913~DTM*23

[download]

In reply to Re^11: 80 characters long by ikegami
in thread 80 characters long by aixmike

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.