while (<FILE>) {
    $count += () = /\Q$constant\E/g;
}
print "$constant occurs $count times\n";