s#(((\e[^a-zA-Z]*[a-zA-Z])*.){1,79})\s#$1\n#g;

##</code><code>##

    my $esc= qr[\e[^a-zA-Z]*[a-zA-Z]];
    my $char= qr[(?:$esc)*.];
    s[((?:$char){1,79})\s][$1\n]g;
    s[((?:$char){79})($char)][$1\n$2]g;

##</code><code>##

    my $esc= qr[\e[^a-zA-Z]*[a-zA-Z]];
    my $char= qr[(?:$esc)*.];
    s[((?:$char){1,79})(\s|$)][$1.($2?$/:"")]ge;
    s[((?:$char){79})($char)][$1\n$2]g;

##</code><code>##

    my $esc= qr[\e[^a-zA-Z]*[a-zA-Z]];
    my $char= qr[(?:$esc)*.];
    $_ .= $/;
    s[((?:$char){1,79})\s][$1\n]g;
    s[((?:$char){79})($char)][$1\n$2]g;
    chomp;

##</code><code>##

    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;