use 5.020;
use warnings;
use Encode;

my $ae_1 = chr 0xe4;

print encode 'UTF-8', $ae_1;

{
    use bytes;
    print $ae_1;
}