open(QUEUES, $queuecmd);
my @lines=<QUEUES>;
close QUEUES;
my @queues = grep {s/.*count= *(\d+),.* Queue=or_event_queue\s*/$1/} @lines;
print "$queues[0]\n";
##</code><code>##

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