#! perl
use strict;
use warnings;

my $record;

while (<DATA>)
{
    if (/^object network/)      # new record
    {
        process_record($record) if $record;
        $record  = $_;
    }
    else
    {
        $record .= $_;
    }
}

process_record($record) if $record;

sub process_record
{
    my   ($record) = @_;
    print $record, '-' x 36, "\n";
}

__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