Mmmm, I thought only readline is special-cased. Who can remember all this ****.

:/

$ perl -MO=Deparse -le " while( my $f = readdir $DIR ){ print $f; } "
BEGIN { $/ = "\n"; $\ = "\n"; }
while (defined(my $f = readdir $DIR)) {
    do {
        print $f
    };
}
-e syntax OK
[download]