for ($sequence =~ /$substring/g) {