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