Select Code to Download

sub trunc
{
...
    @tokens = split /\s+/, $text;
    return join " ", @tokens[0..$last_word-1];
}

    @tokens = split /(\s+)/, $text, -1;  # keep all white-space
    my $trunc_str = '';
...
    }
    return $trunc_str;
}