open(DATEI, "<daten.txt") or die $!;
while (<DATEI>) 
{
  $tmp = $_;
  $tmp =~ s/\"//gis;  # Diese Zeile Entfernt alle " 
  my @Daten = split(';', $tmp);  #Im Array @Daten sind jetzt alle Felder der aktuellen Zeile.
  
# Zugriff auf ein Element der Aktuellen Zeile ==>  $Daten[1]  
# Du kannst jetzt gleich in diesem schritt bearbeiten 
# und durch ">>" anhängen Zeilenweise in eine neue Datei schreiben.
} 
close(DATEI);