$q = "
data
";
$Q = '
print "
\44q = \42#{$q}\42;
\44Q = \47#{$Q}\47;
eval\44Q;
";
';
eval$Q;