while ($sequence =~ /$substring/g) { $count++ }