#!/usr/bin/perl -w


use strict;

open(OUTFILE, ">FastaAccessions.txt");
#open(OUTFILE, ">testresult.names");

my $i = 0;

{
  local $/ = "\n>";
  
  while(my $entry = <>)
  {
    $entry =~ s/^>|>\s*$//g;
    
    my ($title, $sequence) = split(/[\n\r]+/, $entry, 2);
    
    $title =~ s/^\[.*\]gi\|(\d+)/$1/;
    $i = $i+1;
    
   # $title =~ s/\s+/_/g;
    #$sequence =~ s/\s+$//;
    
    #if ($sequence =~ /[ML]ERP.P.*DFG/)
    #{
      print OUTFILE "$title\n";
      print "$title\n";
    #}
  }
}
print "Number of sequences selected: $i";
close(OUTFILE);