https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974959#M102151 Perfect. Thank you merijn Fri, 21 Apr 2006 14:31:46 GMT Mike_Ca Li 2006-04-21T14:31:46Z https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974957#M102149 @output is <BR /> QUEUE(QUEUE.01) CURDEPTH(0)<BR /> QUEUE(QUEUE.02) CURDEPTH(0)<BR /> QUEUE(QUEUE.03) CURDEPTH(0)<BR /><BR />I have this code:<BR /> foreach (@output) {<BR /> # Just read the values in parentheses into a list<BR /> @queues = (@queues, m/(\w+.\d{2})/, m/(\d+)/);<BR /> }<BR /><BR />@queues is showing:<BR />QUEUE.01 01 QUEUE.02 02 QUEUE.03 03<BR /><BR />How to get <BR />QUEUE.01 0 QUEUE.02 0 QUEUE.03 0 ? Thanks Fri, 21 Apr 2006 13:37:52 GMT https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974957#M102149 Mike_Ca Li 2006-04-21T13:37:52Z https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974958#M102150 <BR />for (@output) {<BR />push @queues, m/\((.*?)\)/g;<BR />}<BR /><BR />Demo:<BR /><BR />lt09:/home/merijn 103 &gt; cat xx.txt<BR />QUEUE(QUEUE.01) CURDEPTH(0)<BR />QUEUE(QUEUE.02) CURDEPTH(0)<BR />QUEUE(QUEUE.03) CURDEPTH(0)<BR />lt09:/home/merijn 104 &gt; perl -wle'my@output=&lt;&gt;;for(@output){push@queues,m/\((.*?)\)/g}print for@queues' xx.txt<BR />QUEUE.01<BR />0<BR />QUEUE.02<BR />0<BR />QUEUE.03<BR />0<BR />lt09:/home/merijn 105 &gt;<BR /><BR />Enjoy, Have FUN! H.Merijn Fri, 21 Apr 2006 14:22:13 GMT https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974958#M102150 H.Merijn Brand (procura 2006-04-21T14:22:13Z https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974959#M102151 Perfect. Thank you merijn Fri, 21 Apr 2006 14:31:46 GMT https://community.hpe.com/t5/operating-system-linux/help-with-perl-regex/m-p/4974959#M102151 Mike_Ca Li 2006-04-21T14:31:46Z