in reply to More Fun with Zero!

As far as the syntax for eval(EXPR); I too like to make anything that can be one line accually one line so I often use the evalution order of if and do like:
#!/usr/bin/perl use strict; use warnings; print qq(Hey no error !\n) if(eval(q(1;))&&!$@);

Brought to you by that crazy but lovable guy... lindex