Регулярные выражения на Perl

Народ !!!
Я тут с регулярными выражениями в Perl\'e завис.
Есть строка, из нее надо выделить слова (убрать пробелы etc, оставить а-яА-Яa-zA-Z0-9).

Использую
@WorkArr = split(/[,._-\\s+]/, $word);

Но он не понимает если задано "слово1 - _ слово2".

И есть ли более универсальный способ ?

[Chs]

@lexandr (23-03-2001 10:28):
Народ !!!
Я тут с регулярными выражениями в Perl\'e завис.
Есть строка, из нее надо выделить слова (убрать пробелы etc, оставить а-яА-Яa-zA-Z0-9).

Использую
@WorkArr = split(/[,._-\\s+]/, $word);

Но он не понимает если задано "слово1 - _ слово2".

И есть ли более универсальный способ ?

@WorkArr = split(/[,\\._\\-\\s]+/, $word);

Более универсальный -
m/([\\w\\d]+)/g и perldoc Locale.

use locale у меня вообще ни разу не срабатывало.

как сделать, чтобы \\W (и подобные фичи) реагировало на русские символы ?

[Chs]

@lexandr (23-03-2001 15:26):
use locale у меня вообще ни разу не срабатывало.

как сделать, чтобы \\W (и подобные фичи) реагировало на русские символы ?

perldoc perllocale