(CSW - Q1)
OMIPMS55:NTTCSWQ1:MQSI.3PL846
OMIPMS55:NTTCSWQ1:MQSI.STATUS
OMIPMS55:NTTCSWQ1:MQSI.3PLXDOCK.STATE
(CSW - Q2)
OMIPMS55:NTTCSWQ2:MQSI.3PL846
OMIPMS55:NTTCSWQ2:MQSI.3PL944
(CSW - Q3)
OMIPMS55:NTTCSWQ3:MQSI.3PL846

##</code><code>##

open (INPUT, "data") || die "couldn't open the file!";
open (OUTPUT, ">result.out") || die "couldn't open the file!";

   foreach $line (<INPUT>) {

        chomp $line;


if ( $line !~ /^\[.*\]/ ) {

     ($server, $queuem, $queue)= split(/:/, $line);


system qq(telnet -host $server -user mqadmin -passwd >> out);


                    }

   }
   close(OUTPUT);
   close(INPUT);