# perl -MO=Deparse,-p -we 'print "Eek\n" if (shift ne "");'
((shift(@ARGV) ne '') and print("Eek\n"));
-e syntax OK
# perl -MO=Deparse,-p -we "print 'Eek\n' if (shift ne '');"
((shift(@ARGV) ne '') and print('Eek\\n'));
-e syntax OK