open (FILE,"abc345.txt") or die $!;
       while (<FILE>){
       $_ = /((^Query = .*)|(^\>.*)|(Length = .*))/i;
       print "$1\n";
       print "$2\n";
       print "$3\n";
       print "$4\n";
      
   }
  close (FILE) ;