Something like this perhaps?

$string =~ s/$_/$hash{$_}/g for (keys %hash);
[download]