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