use strict; use warnings; use 5.020;
use utf8;
use HTML::Entities ();
my $s = HTML::Entities::decode_entities("ä");
say $s =~ /\xE4/;