use 5.020;
my $ae_1 = chr 0xe4;
my $ae_2 = "\N{U+e4}";

say '$ae_1 ist gleich $ae_2' if ($ae_1 eq $ae_2);

{
    use bytes;
    print $ae_1;
    print $ae_2;
}