<div>Вместо:</div><div><br></div>use utf8;<div><br></div><div>Пишем:</div><div><br>use utf8::all;<div><br></div><div>Почему?</div><div><br></div><div><a href="https://metacpan.org/pod/utf8::all">https://metacpan.org/pod/utf8::all</a><br>
<br>четверг, 22 мая 2014 г. пользователь Алексей Мышкин  написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div>Всем доброго дня.<br></div><div>
Есть такой код:<br>#!/usr/bin/env perl<br>use strict;<br>#use utf8;<br><br>my $BadChars = quotemeta '№«».,';<br><br>my $BadCharsRX = qr/$BadChars/u;<br><br>my $str = '... «»«»';<br>
<br>$str =~ s/([$BadCharsRX])[$BadCharsRX]+/$1/g;<br><br>print "$str\n";<br></div><div>=====cut=====<br><br></div><div>выдаёт ахинею<br></div><div>если сделать так:<br><br></div><div><div><div>my $str = '... №№№ «»«»';<br>

</div><div>то начинает работать.<br><br></div><div>Что за чёрт?<br><br></div><div>Perl v5.14.2<br></div><div>-- <br>С уважением,<br>Мышкин Алексей.
</div></div></div></div>
</blockquote></div></div>