#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @queue;

while (<DATA>)
{
   push @queue,$1 if (/count=\s*(\d+)/ and $1 != 0);
}

print Dumper \@queue;

=prints:
$VAR1 = [
          '3079'
        ];
=cut

__DATA__
Host 'server02' connected
 ============================================================
 Hostname: 'server02'
   count=     0, delivering=     0, Queue=opr_action_launch_queue
   count=     0, delivering=     0, Queue=queue/alert_engine_notification
   count=  3079, delivering=     0, Queue=or_event_queue
   count=     0, delivering=     0, Queue=recipient_notification
   count=     0, delivering=     0, Queue=queue/alert_engine_alert
   count=     0, delivering=     0, Queue=failed_recipient_notification