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

##</code><code>##

while (<FILE>) {
    $count += () = /$substring/g;
}