Help for this page

Select Code to Download


  1. or download this
    use Text::Wrap qw( wrap );

local $Text::Wrap::columns = 80;
print wrap('', '', <IN>);
  2. or download this
    use Text::Wrap qw( wrap );

...
local $Text::Wrap::break   = qr/(?<=,)/;
local $/ = ',';
print wrap('', '', $_) while <IN>;