$/ = "\/\/\n";
$counter=1;
while (<>){
  # Read the entry
    print "Entry $counter\n";
    print "I don't know what to do \n";
  #do something  
    $counter++
    }