Здравствуйте!
use strict;
use warnings;
use Encode qw|decode_utf8 encode_utf8|;
my $text = decode_utf8('привет');
print encode_utf8($text =~ s/(\X)/\U$1/gr); # 1РИВЕТПочему первый символ заменяется числом? Пример искусственный, нужно с помощью регулярки менять регистр некоторых символов. Но первый превращается в цифру.
