$constant = '$$';
$line_count =0;
while (<FILE>){
  $line_count++ unless index ($_, $constant);
}