You need the /g switch to your regex match:

for ($sequence =~ /$substring/g) {
[download]

and, of course, increment $count in the inner loop.