paste.perl

sub _filterKeywords {
    my $self     = shift;
    my $keywords = shift;

    $keywords = WebGUI::HTML::filter($keywords, "all");

    # split into 'words'.  Ideographic characters are treated
    # as distinct words.  Everything else is space delimted
    my @words = split /\s*|(\p{Ideographic})/, $text;

    # remove punctuation characters at the start and end of each word.
    my @filteredWords = ();
    WORD: for my $word ( @words ) {
        next WORD unless defined $word
                      && $word ne '';
        $word =~ s/\A\p{isPunct}//;
        $word =~ s/\p{isPunct}\z//;
        push @filteredWords, $word;
    }

    $keywords = join q{ }, @words;
    return $keywords;
}