Zeilen zählen ohne Kommentare

[Siechfred]

Привет Christoph.

Dies /*ist*/ ein /*Test*/ mit Kommentaren.
$test =~ s/[/\].*[\/]//g;

Wie wäre es, die Quelldatei Zeile für Zeile durchzugehen und den Teilenzähler nur dann um 1 zu erhöhen, wenn der RegEx nicht passt? Denkbare Variante (meine C-Kenntnisse tendieren allerdings gen Null):

while(<INFILE>) {
  # entweder /* oder */
  if($_ !~ /(/\/)|(\/)/) { $z++; }
}

Дружба!
Siechfred