Select Code to Download

 
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";

Host 'server02' connected
 ============================================================
...
   count=     0, delivering=     0, Queue=recipient_notification
   count=     0, delivering=     0, Queue=queue/alert_engine_alert
   count=     0, delivering=     0, Queue=failed_recipient_notificatio
+n