while (defined($line = <OLD>) ) {
       ...
           chomp $line;
           $line .= <OLD>;