my $len= 79;
    my $esc= '\e';
    my $eseq= qr[$esc[^a-zA-Z]*[a-zA-Z]];
    my $char= qr[(?:$eseq)*[^$esc\n]];
    my $nonsp= qr[(?:$eseq)*[^$esc\s]];

    s[(?:^|(?<=\s))((?:$char){1,$len}(?:$eseq)*)\s][$1\n]g;
    s[(?:^|(?<=\s))((?:$nonsp){$len}(?:$eseq)*)(?=[^$esc\s])][$1\n]g;

##</code><code>##

    s[(?:\G|^)((?:$char){1,$len}(?:$eseq)*)\s][$1\n]gm;
    #    ^^^^                                        ^
    #    vv
    s[(?:\G|(?<=\s))((?:$nonsp){$len}(?:$eseq)*)(?=[^$esc\s])][$1\n]g;