[Moscow.pm] unicode & regexp

[Алексей Мышкин]

Всем доброго дня.
Есть такой код:
#!/usr/bin/env perl
use strict;
#use utf8;

my $BadChars = quotemeta '№«».,';

my $BadCharsRX = qr/$BadChars/u;

my $str = '... «»«»';

$str =~ s/([$BadCharsRX])[$BadCharsRX]+/$1/g;

print "$str\n";
=====cut=====

выдаёт ахинею
если сделать так:

my $str = '... №№№ «»«»';
то начинает работать.

Что за чёрт?

Perl v5.14.2
-- 
С уважением,
Мышкин Алексей.

-- 
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org