foreach $key (keys %hash) {
    $key = quotemeta $key;
    $text =~ s/$key/$hash{$key}/eg;
}