Select Code to Download

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

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