perl -e '($alpha, $delta) = qw{A D};$test = q(qq($delta and $alpha)); print eval $test'