Help for this page
utf8::decode($string);
use 5.010001; use LWP::UserAgent; ... { sprintf('[U+%04X]', ord($1)) }gex; print $content;