my $x = "äü";
utf8::decode($x);
print $x;