use strict;
use warnings;

open(IN, "<", "rep_set_ass_tax.fna") or die "Died!!"; 

 while (my $line=<IN>) { 
   if($line=~/>(\d+)/) {
     print $1 . "\n";
   } 
 }
 
 close IN;