--- db/prgsrc/db.cgi	2001/12/05 01:49:26	1.43
+++ db/prgsrc/db.cgi	2001/12/05 01:55:21	1.44
@@ -195,7 +195,7 @@ sub proxy
       $text=~s/p(${RLrl})/Ò$1/gom;
       $text=~s/(${RLrl})p/$1Ò/gom;
       $text=~s/\s+/ /gmo;
-      $text=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀêãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâàQWERTYUIOPASDFGHJKLZXCVBNM]/ /g;
+      $text=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀêãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâàQWERTYUIOPASDFGHJKLZXCVBNM0-9]/ /g;
       $text=uc $text;
       my @list= $text=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;
       my (%c, %good,$sstr);