http://www.perlmonks.org?node_id=814136


in reply to mod_perl2 and utf8

By the way,

if (!Encode::is_utf8($str) && $str =~ m/\x80-\xff/) { $str = Encode::encode_utf8($str); # Get utf8 byte seq Encode::_utf8_on($str); # and flip the flag } $r->print($str);
is the same as
utf8::upgrade($str); $r->print($str);

But as previously explained, the correct solution is

utf8::encode($str); $r->print($str);