my $re = join "|", map { quotemeta $_ } keys %entitylist;
$re = qr/(?:$re)/;

# ...

$string =~ s/($re)/$entitylist{ $1 }/ge;