#!/usr/bin/env perl

use strict;
use warnings;

my @objects;
my @fields = qw{network host description};

{
    local $/ = "\nobject";

    while (<DATA>) {
        my %object;

        for my $field (@fields) {
            / $field \s ( .*? ) $ /mx and $object{$field} = $1;
        }

        push @objects, \%object if keys %object;
    }
}

use Data::Dump;
dd \@objects;

__DATA__
object network Microsoft.Lync.Host.3
 host 138.108.25.111
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.4
 host 138.108.25.112
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.5
 host 138.108.25.113
 description Help Desk Ticket #476739
object network Microsoft.Lync.Host.6