$hash{a} = "go";
$string =~ s{\$(\w+)}{$hash{$1}}ge;