$string =~ s/$_/$hash{$_}/g for (keys %hash); [download]
In reply to Re: substituting with hash data by Cirollo in thread substituting with hash data by Anonymous Monk