my $a = '';
my $str = 'Hello $a';
$a = 'Kevin';
print eval qq{"$str"}