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

##</code><code>##

my $searchterm = quotemeta $user_input;

##</code><code>##

     while ($_ =~ m/\Q$constant\E/gc) {
       $count++; 
     }