use Encode;
for my $codepoint (0x80..0xffff) {
    my $utf8 = pack "U", $codepoint;  Encode::_utf8_off($utf8);
    printf "U+%04x %s '%s'\n", $codepoint, unpack("H*",$utf8), $utf8;
}