--- db/prgsrc/db.cgi	2003/05/25 21:04:33	1.119
+++ db/prgsrc/db.cgi	2003/06/04 23:18:46	1.120
@@ -450,7 +450,10 @@ sub russearch {
             my %count;
 	POSIX::setlocale( &POSIX::LC_ALL, $thislocale );
 $sstr=~tr/йцукенгшщзхъфывапролджэячсмитьбю/ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ/;
-    	    @qw=@w =split (' ', uc $sstr);
+#    	    @qw=@w =split (' ', uc $sstr);
+            my $ts=uc $sstr;
+      	    @qw=@w= $ts=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;
+
 
 #-----------
             foreach $i (0..$#w) # заполняем массив @nf начальных форм