my($greeting,$target)=('Hello','World');
my $str = '$greeting $target';
$res=eval "qq{$str}";
print $res

__END__
Hello World