DB<8> x $uni
0  '\x{03B1}'

DB<9> x is "\N{alpha}",substr($uni,0,1),"alpha does not map to symbol 'a'";
Unknown charname 'alpha' at (eval 23)[/usr/share/perl/5.18/perl5db.pl:732] line 2, within string

DB<10> x is "\N{greek:alpha}",substr($uni,0,1),"alpha does not map to symbol 'a'";
ok 6 - alpha does not map to symbol 'a'
0  1