That's almost the limit. Anything more complex doesn't add a defined.

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