if (join("",$name,$model) =~/$word/i){
вместо
if ((rutextup("\\I$name$model\\E") =~ rutextup(\\I$word\\E)){
+ вначале пропиши
use locale;
А вообще там
![:)](http://forums.webscript.ru/Smileys/akyhne/smiley.gif)
стоит все конкретно переделать, например библиотечку uss_lib.pl
![:)](http://forums.webscript.ru/Smileys/akyhne/smiley.gif)
можно и не использовать учитывая,что из нее там пару функций по разу использовались..