my $var = "foo";
my $str = 'abc $var def';

##</code><code>##

my $newstr = eval "\"$str\"";