if($_ =~ m/^(\Q$constant\E)/) {
       $line_count++;
     }