$ perl -E '
    use Unicode::UCD "charprop";
    say "$_:\t", charprop("U+1F5A7", $_) for qw{Age Name Emoji};
'
Age:    V7_0
Name:   THREE NETWORKED COMPUTERS
Emoji:  No