Select Code to Download

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

while ( my $token = $p->get_token ) 
{ 
...
        $doc2 .= " $tkntext ";
    }
}