$constant = quotemeta '$$';
$line_count =0;
while (<FILE>){
  if($constant ne "") {
     if($_ =~ m/^($constant)/) {
       $line_count++;
     }
  }
}
[download]

UPDATE: Geez... you asked this question 2 days ago, and got the answer --