https://www.facebook.com/groups/100858186649890/permalink/835498159852552/

gistfile1.pl

use strict;
use warnings;
use 5.010.1;

my $msg;
my $break = qr/^AMQ\d+/;
while (<DATA>) {
    chomp;
    if ($break .. $break) {
        if (/($break)/) {
            # $1 is now the ID
            $msg .= 'the queue is ';
            next;
        }
        /^QUEUE\(([^)]+)/
            and $msg .= $1;
        /^CURDEPTH\(([^)]+)/
            and $msg .= " and depth is $1\n";
    }
}
say for split /\n/, $msg;


__DATA__
AMQ8409: Display Queue details.
QUEUE(SYSTEM.ADMIN.QMGR.EVENT) TYPE(QLOCAL)
CURDEPTH(1)
AMQ8409: Display Queue details.
QUEUE(SYSTEM.AUTH.DATA.QUEUE) TYPE(QLOCAL)
CURDEPTH(102)