use strict;
use warnings;
use Encode;

my $c = chr 0xE4;
my $cc = pack "U", 0xA4;
print encode 'utf8', encode 'utf8', $c; # kaputt
print "\n";
print encode 'utf8', encode 'utf8', $cc; # auch kaputt