for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
my $meta = shift @info or die $@;
ref $meta eq 'HASH' or die "invalid $system definitions";
my $title = $meta->{name} // $system;
for my $system (qw'gmail msn yahoo') {
my @info = do "emoji-$system.inc.pl";
my $meta = shift @info or die $@;
ref $meta eq 'HASH' or die "invalid $system definitions";
my $title = $meta->{name} // $system;