Help for this page
Select Code to Download
Select
or
download this
foreach my $line (@file) { $line =~ s/(.{70}\B{1,10})/$1\n/g); }