Bio::SeqIO;
Bio::PrimarySeqI;

index($str,$substr,$start_position);