Select Code to Download

while ( my $token = $p->get_token ) {
    if ($token->is_text) {
        my $text = $token->as_is;
...
        $doc2 .= $token->as_is;
    }
}

$doc2 .= substr( $tkntext, 0, rindex( $tkntext, ' ', $maxlen );

$doc2 .= substr( $tkntext, 0, rindex( $tkntext, ' ', $maxlen ) );