固定幅で折り返す


 Jcodeモジュールのjfoldを使うのが簡単です。
use strict;
use warnings;
use Jcode;

while (my $line = <>) {
    print Jcode->new($line)->jfold(40)->sjis;
}

関連項目

固定幅で折り返す2
テキストで表を作成する