binmode(STDOUT, ":utf8"); binmode(STDERR, ":utf8"); print length("\N{LATIN CAPITAL LETTER A}\N{COMBINING ACUTE ACCENT}"), "\n"; print "\N{LATIN CAPITAL LETTER A}\N{COMBINING ACUTE ACCENT}", "\n"; my $smiley_from_name = "\N{WHITE SMILING FACE}"; my $smiley_from_code_point = "\N{U+263a}"; print $smiley_from_name, "\n"; print $smiley_from_code_point, "\n"; my $dui = "\N{U+5C0D}"; print $dui, "\n"; die "\n", "\N{U+5C0D}", "\N{U+4E0D}", "\N{U+8D77}", ", the file $target_file does not exist.\n\n" unless -e $target_file;