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

##</code><code>##

Illegal division by zero at /tmp/p line 1.