# zeilenweise lesen
while ( my $line = <$DATENQUELLE> ) {

  while ( $line =~ m/comment:[^)]*$/ ) {  # solange ein Kommentar beginnt && noch nicht mit ) abgeschlossen wurde,
     chomp $line;                      # entferne Newline
     $line .= <$DATENQUELLE>;          # und lese die nächste Zeile und füge sie hinten an
  }                                    # REMARK: Das geht solange, bis eine ) am Ende von $line auftaucht

  # ... Hier die normale Auswertung dann

}