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