<HTML><BODY><br>use Encode;<br>print Encode::encode('UTF-8', $str),"\n";<br><br>Не ?<br><br><br>Thu, 22 May 2014 14:58:57 +0400 от Алексей Мышкин <parserpro@gmail.com>:<br>
<blockquote style="border-left:1px solid #0857A6; margin:10px; padding:0 0 0 10px;">
<div id="">
<div class="js-helper js-readmsg-msg">
<style type="text/css"></style>
<div>
<base target="_self" href="https://e.mail.ru/">
<div id="style_14007563680000000507_BODY"><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>
</div>
<div>-- <br>
Moscow.pm mailing list<br>
<a href="/compose?To=moscow%2dpm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br>
</div>
<base target="_self" href="https://e.mail.ru/">
</div>
</div>
</div>
</blockquote>
<br></BODY></HTML>