while(<FILE>){
  # do something
  $count++; # count lines  in FILE
}

# somewhere else in your script

sub count_digits {
    $string = shift();
    $count = $string =~ tr/0-9/0-9/;
    return $count;
}