C:\>perl -MO=Deparse -e"while (<>) {}"
while (defined($_ = readline ARGV)) {
    ();
}
-e syntax OK

C:\>perl -MO=Deparse -e"while (<> and !/pattern/) {}"
while (readline ARGV and not /pattern/) {
    ();
}
-e syntax OK

C:\>