$ perl -MHTTP::Message -e" $a = HTTP::Message->new; $a->content( chr(500) )"
HTTP::Message content must be bytes at -e line 1

$ perl -e"print utf8::is_utf8( chr(500) )"
1


##</code><code>##

$success = utf8::downgrade($string[, FAIL_OK])