#/usr/bin/perl -w

use strict;

my %glyphs;
my @words;
while  ( <DATA> ) {
	push @words, split /,\s*/;
}

@glyphs{ map { /(&.+?;)|(.)/g } @words } = 1; 
print join( "\n", keys %glyphs);

__DATA__
ALBEVERIO MANZONI, 	Solvejg
ALCAL&Aacute;, 		Kathleen
ANDR&Eacute;E, 		Alice
ARROYO-GOMEZ, 		Mario Vernon
BABINEAU, 			Jean Joseph
BAINBRIDGE, 		Dame Beryl (Margaret)
BAINBRIDGE, 		Cyril
DEARDEN, 			James Shackley
DE&rsquo;ATH, 		Richard
DECKER, 			Donna