my $alpha = "A";
my $delta = "D";
my $test = '$delta and $alpha';
eval "\$test = \"$test\"";
print "$test";