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

##</code><code>##

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