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