perl unicode и length

perl -ne 'use Encode; $_ = decode_utf8 ($_); print encode_utf8($_) if length >7 '

В этом случае $_ будет интерпретироваться как юникодная строка.

Или, как вариант, BEGIN{ binmode STDIN, ":utf8"; binmode STDOUT ":utf8"}

(Второе преобразование можно и не делать в обоих случаях, однако это приведет к варнингу: Wide character in print at -e line 1, <> line 2.)

Спасибо, работает!

use Encode;

$a = <>;

Encode::_utf8_on ($a);

print length($a);