% cd /etc
% perl -e 'do (!$var)'
perl -e 'do (/etcvar)'
Search pattern not terminated at -e line 1