$_=q(print qq(\$_=q($_);eval\n));eval