utilises tu les parsers BLAST de bioperl ? cf la

si oui alors c'est simple, suivant l'exemple donné dans la doc tu peux faire:

use Bio::SearchIO;
my $searchio = Bio::SearchIO->new( -format =>...