Нужен REGEXP для perl смысл которого....

.....например таков:
"все слова из трех букв"
но стандартное \b\w{3}\b не подходит, т.к. текст русский, а локаль не ставится.
Во всяком случае после
setlocale(LC_ALL,"ru_RU.KOI8-R");
lc("НАРОД ПОМОГИТЕ");
Мы на экране получаем этот зов прописными(большими) буквами, а не
строчными(маленькими)

И в чем может быть дело?
все нужные файлы для локали ru_RU.KOI8-R есть