perl -MO=Deparse -e "for (;<>;){print}" while (defined($_ = )) { print $_; } -e syntax OK