>perl -MO=Deparse -e"while (<FILE> && foo()) {}"
while (<FILE> and foo()) {
    ();
}
-e syntax OK