diff --git a/trunk/tools/tagcloud.pl b/trunk/tools/tagcloud.pl
index 6ffb8af..3f6b405 100755
--- a/trunk/tools/tagcloud.pl
+++ b/trunk/tools/tagcloud.pl
@@ -13,11 +13,14 @@ $sth = $dbh->prepare("select subject from videos");
 $sth->execute();
 while(($subject) = $sth->fetchrow_array())
 {
-	@subject = split(',', $subject);
+	@subject = split(' ', $subject);
 	foreach my $val (@subject)
 	{
 	    $val =~ s/^\s*(.*?)\s*$/$1/;
-		%hash->{$val}++;
+		if(length($val) >= 4)
+		{
+			%hash->{$val}++;
+		}
 	}
 }
 $sth->finish();