Help for this page

Select Code to Download

Select or download this

    my $len= 79;
    my $esc= '\e';
...

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

Select or download this

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