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);