use 5.020;
use Encode;
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}";

{
    say "Ohne 'use bytes', mit Encode";
    say "1 = 2"  if $ae_1 eq $ae_2;
    say "2 = 3"  if $ae_2 eq $ae_3;
    say encode 'UTF-8',
        " mit encode: ae_1 = $ae_1, ae_2 = $ae_2, ae_3 = $ae_3";
    say encode 'UTF-8',
        " mit encode: Ein '$ae_1' kostet 1$euro";
    say "-" x 50;
}
{
    use bytes;

    say "Mit 'use bytes'";
    say "1 = 2"  if $ae_1 eq $ae_2;
    say "2 = 3"  if $ae_2 eq $ae_3;
    say "ohne encode: ae_1 = $ae_1, ae_2 = $ae_2, ae_3 = $ae_3";
    say encode 'UTF-8',
        " mit encode: ae_1 = $ae_1, ae_2 = $ae_2, ae_3 = $ae_3";
    say "ohne encode: Ein '$ae_1' kostet 1$euro";
    say encode 'UTF-8',
        " mit encode: Ein '$ae_1' kostet 1$euro";
}