while (my ($key, $value) = each(%entitylist)){
#print $key."\n".$value."\n";
		$string =~ s/$key/$value/g;
}