[Bioperl-l] Search for sequence inside sequence

[Carnë Draug]

Hi everyone

is there a method to check if a sequence exists inside another one? I
have a sequence object and a small string of a sequence. I'd like to
know if it's present? Currently I only have

say "Found on $file" if $seq->seq =~ /$string/i;

It solves my problem but this doesn't look very smart to me. Is there
a better way? Maybe even something that would also accept S to match
against [G|C] for example?

Thanks in advance,
Carnë