Are you sure that the pattern should match more than once? Show a more complete example including values for $len and $allseq

P.S. Put <code></code> tags around your code.