substr outside of string at /usr/share/perl5/Text/WrapI18N.pm line 130.
Use of uninitialized value $text in length at /usr/share/perl5/Text/WrapI18N.pm line 52.

##</code><code>##

use strict;
use warnings;
use 5.010;
use utf8;
use open ':std', ':utf8';
use Text::LineFold;

my $lf = Text::LineFold->new( ColumnsMax => 12, );
while (<>) {
    my $folded = $lf->fold($_);
    utf8::decode($folded);
    say $folded;
}