Something like as

perl -e 'my $var = q(VARVALUE); my $out = qq(This is the $var.); print
+ $out;'
[download]

The point is qq(), which is interpolating, instead of q().
Update: Please, forgot it, I am too tired now :(