my %vars = ( var => "foo" );
   $str = 'abc $var def';
   (my $new_str = $str) =~ /\$(\w+)/$vars{$1}/g;