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