$ perl -MO=Deparse -e "Illegal division by zero at /tmp/quine.pl line 1." 'division'->Illegal('zero'->by('at' / 'tmp' / 'quine' . line'->pl(1))); -e syntax OK