in reply to Re: Re: how do I line-wrap while copying a file to stdout?
in thread how do I line-wrap while copying a file to stdout?

Sorry. For a drop in replacement, you can use: 
chomp;
print join( "\n", split( /(.{80})/ ) ), "\n";

[download]

In Section Seekers of Perl Wisdom