Yet Another CPAN Grep

HTTP-AnyUA ( C/CC/CCM/HTTP-AnyUA-0.904.tar.gz, CCM, 2019; MetaCPAN )

HTTP-AnyUA/lib/HTTP/AnyUA/Util.pm ( view source; MetaCPAN )

/www.w3.org/TR/html4/interact/forms.html#h-17.13.4.1
# perl 5.6 ready UTF-8 encoding adapted from JSON::PP
# adapted from HTTP/Tiny.pm
my %escapes = map { chr($_) => sprintf('%%%02X', $_) } 0..255;
$e