Fehler... aber wo?

[rob]

hallo zusammen

if($uebergeben[1] =~ /^movetoend$/)
{
open(DATEN,"aufgaben.txt");
@Daten = <DATEN>;
close(DATEN);
chomp(@Daten);

open(DATEN,">aufgaben.txt");

$satz = -1;
for($i = 0; $i < @Daten; $i++)
{
  if($Daten[$i] =~ /^#0$/ && $satz = -1)

hab es hier nun mit == anstatt = versucht, und oh wunder ;-) es hat geklappt...

{
   $satz = $i;
   $i+=2;
  }
  else
  {
   print DATEN "$Daten[$i]\n";
  }
}

if($satz != -1)
{
  for($z=$satz;$z<$satz+3;$z++)
  {
   print DATEN "$Daten[$z]\n";
  }
}
close(DATEN);
}

merci vilmol für eure hilfe

grüsse
rob