my $entity = join '|', keys %entitylist;
$string =~ s/($entity)/$entitylist{$1}/g;