$ perl -e'($alpha, $delta) = qw{A D};$test = q($delta and $alpha); print eval $test'
A$ 
##</code><code>##

$test =~ s/\$(\w+}\b/$$1/g;