[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
-- 
С уважением,
Мышкин Алексей.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20140522/86cb968e/attachment.html>