Ответ 1
Если у вас нет use utf8;, но вы просматриваете код с помощью текстового редактора utf8, вы не видите его так, как видит perl. Вы считаете, что у вас есть один символ в левой половине ваших s/// и tr///, но поскольку он содержит несколько байтов, perl видит его как несколько символов.
Что вы думаете, perl видит:
my $str1 = "\xE8\xEE\xFC";
my $str2 = $str1;
$str1 =~ tr/\xEE/i/;
print "$str1\n";
$str2 =~ s/\xEE/i/;
print "$str2\n";
Что perl на самом деле видит:
my $str1 = "\xC3\xA8\xC3\xAE\xC3\xBC";
my $str2 = $str1;
$str1 =~ tr/\xC3\xAE/i/;
print "$str1\n";
$str2 =~ s/\xC3\xAE/i/;
print "$str2\n";
С s///, поскольку ни один из символов не является оператором регулярного выражения, вы просто выполняете поиск подстроки. Вы ищете многосимвольную подстроку. И вы находите это, потому что то же самое, что произошло в вашем s///, также происходит в ваших строковых литералах: персонажи, которые, по вашему мнению, находятся там, действительно отсутствуют, но многосимвольная последовательность.
В tr///, с другой стороны, несколько символов не рассматриваются как последовательность, они рассматриваются как набор. Каждый символ (байт) обрабатывается отдельно, когда он найден. И это не дает вам желаемых результатов, потому что изменение отдельных байтов строки utf8 никогда не будет тем, что вы хотите.
Тот факт, что вы можете запустить простой ASCII-ориентированный поиск подстроки, который ничего не знает об utf8 и получить правильный результат в строке utf8, считается хорошей функцией обратной совместимости utf8, в отличие от других кодировок, таких как ucs2/utf16 или ucs4.
Решение состоит в том, чтобы указать perl, что источник кодируется с использованием UTF-8, добавляя use utf8;. Вам также нужно будет закодировать ваши выходы в соответствии с ожидаемыми вами терминалами.
use utf8; # The source is encoded using UTF-8.
use open ':std', ':encoding(UTF-8)'; # The terminal provides/expects UTF-8.
my $str1 = 'èîü';
my $str2 = $str1;
$str1 =~ tr/î/i/;
print "$str1\n";
$str2 =~ s/î/i/;
print "$str2\n";