Help with perl regex

[Mike_Ca Li]

@output is
QUEUE(QUEUE.01) CURDEPTH(0)
QUEUE(QUEUE.02) CURDEPTH(0)
QUEUE(QUEUE.03) CURDEPTH(0)

I have this code:
foreach (@output) {
# Just read the values in parentheses into a list
@queues = (@queues, m/(\w+.\d{2})/, m/(\d+)/);
}

@queues is showing:
QUEUE.01 01 QUEUE.02 02 QUEUE.03 03

How to get
QUEUE.01 0 QUEUE.02 0 QUEUE.03 0 ? Thanks

[H.Merijn Brand (procura · Accepted solution]

for (@output) {
push @queues, m/\((.*?)\)/g;
}

Demo:

lt09:/home/merijn 103 > cat xx.txt
QUEUE(QUEUE.01) CURDEPTH(0)
QUEUE(QUEUE.02) CURDEPTH(0)
QUEUE(QUEUE.03) CURDEPTH(0)
lt09:/home/merijn 104 > perl -wle'my@output=<>;for(@output){push@queues,m/\((.*?)\)/g}print for@queues' xx.txt
QUEUE.01
0
QUEUE.02
0
QUEUE.03
0
lt09:/home/merijn 105 >

Enjoy, Have FUN! H.Merijn

[Mike_Ca Li]

Perfect. Thank you merijn