B::Deparse thinks so :)

$ perl -MO=Deparse,-p -le " opendir BLAH,'.'; while(readdir BLAH){prin
+t;}"
BEGIN { $/ = "\n"; $\ = "\n"; }
opendir(BLAH, '.');
while (defined(($_ = readdir(BLAH)))) {
    print($_);
}
-e syntax OK
[download]