G'day namelkcip,

Welcome to the monastery.

Here's how you can use $/ to get each "object ..." as a record; specify which fields you want; and ignore fields (e.g. description) which don't exist in any given object.

Note how $/ is localised within an anonymous block. This makes $/ = "\nobject" a temporary value which only affects the while (<DATA>) {...} loop; elsewhere in your script, $/ will have its default value. See "Temporary Values via local()" for more details.

#!/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
[download]

Output:

[
  {
    description => "Help Desk Ticket #476739",
    host => "138.108.25.111",
    network => "Microsoft.Lync.Host.3",
  },
  {
    description => "Help Desk Ticket #476739",
    host => "138.108.25.112",
    network => "Microsoft.Lync.Host.4",
  },
  {
    description => "Help Desk Ticket #476739",
    host => "138.108.25.113",
    network => "Microsoft.Lync.Host.5",
  },
  { network => "Microsoft.Lync.Host.6" },
]
[download]