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