>001.b1 gnl|ti|10009
GCTAGTGCTAGCTAGCTAGCATCGATCGAT
>002.b1 gnl|ti|10010
CAGTCAGTCGTAGTGCTAGCTGATGCTCGT
>003.b1 gnl|ti|10011
CGATCGTAGTCGTATCGATGCTGACGTAGG
>004.b1 gnl|ti|10012
CGATGCTAGTCGTAGTGCTAGTGCTATGTC
>005.b1 gnl|ti|10013
CAGTCGTAGTCGATGCTGTATCATAGCGTA
>006.b1 gnl|ti|10014
ACAGTGCTAGCTGATCGTAGCTGAGCGGAG
>007.b1 gnl|ti|10015
AGCTAGCTGATGTCGATGCTGATCGTGATG
>008.b1 gnl|ti|10016
CGATGCTGATGCTGATGCTGTAGCTATACG
>008.g1 gnl|ti|10017
GCTAGCTAGTCGTAGTCGTAGTGTCGTAGG
>009.b1 gnl|ti|10018
CGATGCTAGTCGTAGTCGTAGCTGATGCGT
>010.b1 gnl|ti|10019
CGATCGTAGTCGTAGCTGATGCTGTAGCTG
>010.g1 gnl|ti|10020
CGTAGCTGATCGTAGCGTGACTGTAGCTGG
>011.b1 gnl|ti|10021
CGTAGCTGATGCTGATCGTAGCTAGTCGAT
>011.g1 gnl|ti|10022
CAGCTGATCGTAGCTGATGCTGATGTGTGT

##</code><code>##

>001.b1 gnl|ti|10009
GCTAGTGCTAGCTAGCTAGCATCGATCGAT

>002.b1 gnl|ti|10010
CAGTCAGTCGTAGTGCTAGCTGATGCTCGT

>003.b1 gnl|ti|10011
CGATCGTAGTCGTATCGATGCTGACGTAGG

>004.b1 gnl|ti|10012
CGATGCTAGTCGTAGTGCTAGTGCTATGTC

>005.b1 gnl|ti|10013
CAGTCGTAGTCGATGCTGTATCATAGCGTA

>006.b1 gnl|ti|10014
ACAGTGCTAGCTGATCGTAGCTGAGCGGAG

>007.b1 gnl|ti|10015
AGCTAGCTGATGTCGATGCTGATCGTGATG

>008.b1 gnl|ti|10016
CGATGCTGATGCTGATGCTGTAGCTATACG

>008.g1 gnl|ti|10017
GCTAGCTAGTCGTAGTCGTAGTGTCGTAGG

>009.b1 gnl|ti|10018
CGATGCTAGTCGTAGTCGTAGCTGATGCGT

>010.b1 gnl|ti|10019
CGATCGTAGTCGTAGCTGATGCTGTAGCTG

>010.g1 gnl|ti|10020
CGTAGCTGATCGTAGCGTGACTGTAGCTGG

>011.b1 gnl|ti|10021
CGTAGCTGATGCTGATCGTAGCTAGTCGAT

>011.g1 gnl|ti|10022
CAGCTGATCGTAGCTGATGCTGATGTGTGT

##</code><code>##

       ......
        s/^>//mg;
	my ($name) = /^([^\n]+)/;

	    if($hash{$name} == 10){
		select FILE1;
	    }
	    if($hash{$name} == 20){
		select FILE2;
	    }
	    if($hash{$name} == 30){
		select FILE3;
	    }
	    }
	#print ">$_";
	my $output = $_;
	print ">$output\n";