Brauche nochmal eure Hilfe: Nummerierung bei einer Schleife

[Curt]

---

#!/usr/bin/perl -w

$rein="namedertextdatei";
$raus="namederurldatei";

open REIN,"<$rein" or &error (tralala);
open RAUS,">$raus" or &error (soundso);

$ii = 0;

while (<REIN>) {
  if (/^URL:\s*(.+)$/)

$ii++;

print RAUS "Besucher $ii $1\n";}
}
close RAUS;
close REIN;

---

vielleicht so ??

gruss

Curt