#!/usr/bin/perl
use strict;
use IO::All;
use warnings;
use Data::Dumper;
use feature 'say';

my $queuecmd = 'ls -la';
my @lines = io->pipe($queuecmd)->chomp->slurp;

print Dumper \@lines;

my @queues = grep {s/.*count= *(\d+),.* Queue=or_event_queue\s*/$1/} @lines;
say $queues[0] if $queues[0];

__END__

$ perl module.pl
$VAR1 = [
          'total 24',
          'drwxr-xr-x 2 tinyos tinyos 4096 Dec 27 17:12 .',
          'drwxr-xr-x 5 tinyos tinyos 4096 Dec 27 14:37 ..',
          '-rw-r--r-- 1 tinyos tinyos  462 Dec 27 17:12 module.pl',
          '-rw-r--r-- 1 tinyos tinyos  585 Dec 27 15:04 module.pl~',
          '-rw-r--r-- 1 tinyos tinyos  818 Dec 27 14:38 test.pl',
          '-rw-r--r-- 1 tinyos tinyos 1111 Dec 27 14:37 test.pl~'
        ];