Select Code to Download

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

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

    next unless $line = <>;