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