#!/usr/bin/perl
use warnings;
use strict;
use Font::TTF::Font;

my $font = shift || "./Symbola605.ttf"; 

my $f=Font::TTF::Font->open($font) or die "$!\n";; 

my @out = @{$f->{'post'}->read->{'VAL'}};
#print "@out\n";
my @unihex =  grep{/^u[\d+]/} @out;
print "@unihex\n";