Text::Wrap、Text::WrapI18N、Text::Format、Lingua::JA::Fold、Text::LineFoldのそれぞれについて禁則処理の確認を行ったところ、Text::LineFoldが最も良い結果を返した。 以下のようなテストスクリプトを用意する。 #!/usr/bin/perl -l use warnings; use strict; use Encode; use Text::Wrap; use Text::WrapI18N; use Text::Format; use Lingua::JA::Fold; use Text::LineFold; my $utf8 = find_encoding('utf8'); my $columns = 72; my $text = <STDIN>; $text = $utf8->decode($text); #{