Timed out (reason: in while loop)
::expect_out(0,string) = >
::expect_out(1,string) = RF use CSWT#RF###
dis qremote(MQSI.3PL846) RNAME1 : dis qremote(MQSI.3PL846) RNAME
AMQ8409: Display Queue details.QUEUE(MQSI.3PL846)TYPE(QREMOTE)RNAME(MQSI.3PL846)
No commands have a syntax error.
AMQ8409: Display Queue details.QUEUE(MQSI.3PL944)TYPE(QREMOTE)RNAME(MQSI.3PL944)
end2 : end

##</code><code>##

QUEUE(MQSI.3PL846) ----- >  RNAME(MQSI.3PL846)
QUEUE(MQSI.3PL944) ------> RNAME(MQSI.3PL944)

##</code><code>##

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

   foreach $line (<INPUT>) {

        chomp $line;

if ( $line =~ "AMQ8409" ) {
         print OUTPUT "$line\n"; }


   }
   close(OUTPUT);
   close(INPUT);