#!/usr/bin/perl -l

use strict;
use warnings;
use HTML::Entities;

my $i;
for my $c (0x0000 .. 0xD7FF,
           0xE000 .. 0xFDCF,
           0xFDF0 .. 0xFFFD,
           0x1_0000 .. 0x1_FFFD,
           0x2_0000 .. 0x2_FFFD) {
    local $_=pack 'U', $c;
    next unless /\d/;
    print encode_entities
                 sprintf '%3d: %#5x => %s', ++$i, $c => $_;
}

__END__