Select Code to Download

use warnings;
use 5.028;
...
    printf "%s U+%04X %s %s\n", chr($c), $c, charnames::viacode($c),
        chr($c) =~ /\A$PERL_IDENT_RE\z/ ? "matches" : "doesn't match";
}