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