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

my $queuecmd = 'ls -la';
my $io = io->pipe($queuecmd)->chomp;
my @queues;
while ( defined(my $queue = $io->getline) ) {
    push @queues, $queue if (index($queue, 818) != -1); # instead of grep or $queue =~ m/pattern/
}

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

__END__

$ perl module.pl
$VAR1 = [
          '-rw-r--r-- 1 tinyos tinyos  818 Dec 27 14:38 test.pl'
        ];
-rw-r--r-- 1 tinyos tinyos  818 Dec 27 14:38 test.pl