Имеем RHEL4 (на всякий случай)
Локаль настроена на ru_RU.UTF-8. В системе с локалью все чики-пуки.
Элементарный скрипт
===
#!/usr/bin/perl -w
use strict;
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, "ru_RU.utf8");
my $str = "Пример текста";
print uc($str), "\n";
$str =~ s/\w/R/g;
print $str, "\n";
===
Должен выдавать
   ПРИМЕР ТЕКСТА
   RRRRRR RRRRRR

Однако фиг там. Выдает неизменную строку. Оба раза. То есть не воспринимает 
буквы как легальные буквы (word character). Аналогично при чтении строк из 
файла.

Вопрос: где я не прав?
(папка /usr/lib/locale/ru_RU.utf8 существует и заполнена нужными файлами 
LC_*) 

добавьте в начало скрипта


http://perldoc.perl.org/utf8.html

Спасибо. С использованием констант из текста помогло.
Теперь разбираемся с аналогичной проблемой при чтении строк из файла, который изначально в utf8.

...
С utf8 файлом работает и так, если указать -CD в параметрах запуска.
Но ругается:
"Wide character in print at ./testfile.pl line 11, <LINES> line 2."
Я с ним полностью согласен. Но ругаться-то зачем? 


Это сообщение отредактировал(а) lialimar - 3.12.2008, 11:13

должно помочь

тут конечно не очень привычно читать, но ВСЕ что надо - есть, жаль что пришлось съесть все эти "собаки" прежде чем наткнулся на эту ссылку

http://taka.xfo.cc/utf8.xul

Другой, более удобный, чем презентация выше, вариант статьи Владимира Перепелицы  "UTF Perl Practice, или как использовать UTF-8 в перле".