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