Perl. Обработка hex.

s/\x{2190}//g

>s/\x{2190}//g

Блин. Это работает, но, по-моему, только для ASCII... т.е только для значений 0x00-0xFF... К примеру:
========
a.pl:
---
#!/usr/bin/perl

use strict;

my $str1="ФЫВ";
my $str2="ASD";

$str1=~s/\x{424}//g;
$str2=~s/\x{41}//g;

print "$str1\n$str2\n";
---

%./a.pl
ФЫВ
SD
========

т.е буковка 'Ф' не заменилась...

ЗЫ: используется UTF8

Я на теже грабли как-то наступал. Думаю правильно или разбить на два
байта указатель замены:

$str1=~s/\xd0\xa4//g;

Кстати, русская Ф в utf-8 это именно 0xD0A4, а не 424 как у тебя.

Или если всё в utf-8, в том числе и текст, то можно следующее сделать:

http://lists.debian.org/debian-russian/2005/07/msg00169.html

То есть,

#!/usr/bin/perl

use strict;
use utf8;

my $str1="п╓п╚п▓";
my $str2="ASD";

$str1=~s/п╓//g;
$str2=~s/\x{41}//g;

print "$str1\n$str2\n";

На всякий случай: непонятные значки -- это текст в utf-8

Все! Всем спасибо!