$ perl -ple'$_=eval||$@||0'
1/0
Illegal division by zero at (eval 1) line 2, <> line 1.