Help for this page

Select Code to Download

Select or download this

@words=$text_body =~ /(\S+)/g;
#compute $start and $end
$newtext=join(" ",@words[$start..$end]);

Select or download this

# $start and $window

...
    $newtext .= "$1";
    $i++;
}