Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
        printf "U+%04x\n", $code if defined $code;
    }
}