use charnames qw(:full);
$x = "\N{CYRILLIC CAPITAL LETTER BE}";
# binmode STDOUT, ":encoding(utf-8)";
print $x, "\n";