> perl -MO=Deparse,-p -e 'print 1, print 2, print "\n";'
-e syntax OK
print(1, print(2, print("\n")));