use strict;
use warnings;

# auf diese Art und Weise entstehen
# alle Zeichen mit UTF-8-Kodierung
# es gilt die Charactersemantic
my $ae_1 = chr 0xe4;
my $ae_2 = "\N{U+e4}";
my $ae_3 = "\N{LATIN SMALL LETTER A WITH DIAERESIS}";
my $euro = "\N{EURO SIGN}";

print $euro; # Wide character in print, Fehler!
use bytes;   # schalte um auf bytesemantic
print $euro; # Ausgabe OK