while (($line = <>) && $line =~ /\S/) { ... }
    while (($line1 = <>) && ($line2 = <>)) { ... }

##</code><code>##

    for (;$line = <>;) { ... }

##</code><code>##

    next unless $line = <>;