while( ( $line1 = <FILE> ) && ( $line2 = <FILE> ) ) {
    chomp $line1;
    chomp $line2;
    $line1 =~ /^(\d{4}-\d{2}-\d{2}).*\s(.*)$/;
    my ( $date, $message, $type ) = ( $1, $2, $line2 );
    # continue on...
}