in reply to How to find any of many motifs?

relevant resources are: 
Bio::SeqIO;
Bio::PrimarySeqI;

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

[download]

In Section Seekers of Perl Wisdom