Select Code to Download

while( my $line = <FILE> . <FILE> ) {
    chomp $line; # gets rid of the trailing \n 
...

    # do what you need to with these
}

while( ( $line1 = <FILE> ) && ( $line2 = <FILE> ) ) {
    chomp $line1;
...
    my ( $date, $message, $type ) = ( $1, $2, $line2 );
    # continue on...
}