sub trunc
{
    my ( $last_word, $text ) = @_;
    return '' unless ( $last_word =~ /^\d+$/ and $text =~ /\S/ );

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

##</code><code>##

    @tokens = split /(\s+)/, $text, -1;  # keep all white-space
    my $trunc_str = '';
    for ( @tokens ) {
        $trunc_str .= $_;
        last if ( /\S/ and --$last_word == 0 );
    }
    return $trunc_str;
}