my $foo = 7;
my $str =  eval '"foo has $foo"';
print $str;