if ( length $line )
  {
    if ($line =~ m|^\s* //  |x or
        $line =~ m|^\s* /\* |x or
        $line =~ m|^\s* \*  |x)
      {
        $comment = $comment + 1;
      }
    else
      {
        print "$line\n";
        $code = $code + 1;
      }
    }