string - Perl : 正確な要件に従って Text::Wrap:wrap() を使用できませんでした

Question

列数を 45 文字に制限したいと思います。以下のように使用してText::Wrap:wrapいます。

$Text::Wrap::columns = 44;
print FOUT wrap('','' ,<FIN>);

すべての列を単語区切りなしで 44 文字にしています。ただし、先頭の一部の行のスペースを減らしています。

使用前のテキストwrap():

EVENTS: KINJHK QDFMED QDFMED
        QDFMED KINJHK QDFMED
        KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
         QDFMED42 KINJHK524 MBCXZ
         56.321 ILOLKI 421

使用後のテキストwrap()

EVENTS: KINJHK QDFMED QDFMED
      QDFMED KINJHK QDFMED
      KINJHK

BUTIONS: 52314 KINJHK KINJHKQDFMED
      QDFMED42 KINJHK524 MBCXZ
      56.321 ILOLKI 421

たとえば、EVENTSセクションでは、行の前と下の行のスペースが削減されQDFMED KINJHK QDFMEDます。wrap()しかし、メソッドを使用した後、アライメントが乱されないようにしてください。

このラップを使用する多くの方法を試しましたが、役に立ちません。助けてください。

ありがとう。ヴィス。