my $re = join '|', keys %dict;
$re = qr|($re)|;
s/$re/$hash{$1}/g;