-------------------
Encode::decode('UTF-8'...);
-------------------
utf8::decode();
-------------------
binmode STDIN, ":encoding(utf8)";
-------------------
use CGI qw( -utf8 );
------------
use Encode qw(decode);
use URI::Escape::XS qw(decodeURIComponent);
$_ = decode('UTF-8', decodeURIComponent($_), Encode::FB_CROAK);
-------------
s{%([a-fA-F0-9]{2})}{ pack ("C", hex ($1)) }eg;    # Kept from existing code
s{%u([0-9A-F]{4})}{ pack ('U*', hex ($1)) }eg;     # Added
utf8::decode $_;
---------------
and many others