zeile aus textfile entfernen oder ausschneiden

[Alain]

Hallo leute,
habe leider wieder ein problem,wo ich seit stunden probiere,einerseits
aus schnipsels von selhtml und anderen perlscripts,aber ich kriegs nicht hin.
Das problem ist wie folgt:
Ich habe eine textdatei welche einträge von waren|preis|anzahl beinhaltet bsp. der textdatei:
datum|ipadresse|
ware1|20.00|1|
ware2|25.00|1|
...

im perlsscript steht:
sub delete_item {
open (REFFILE,"$reffile")||error('cannot open cart ');
my @newlines = ();
my @lines=<REFFILE>;
close(REFFILE);

my $items = $FORM{'Video(s)'};#wird vom formular geschickt
my($itemname, $itemprice, $itemquant) = split(/|/,$_);
foreach (@lines)
{
push (@newlines,$_) if ($_ !~ /^$items|/i);
my $newfile = join("|",@newlines);
}
open (REFFILE,">$reffile")||error('cannot open file for write');
print REFFILE "$newfile\n";
close(REFFILE);
}
entweder löscht das script alles oder aber es steht anschliessend nur das datum und ip eintrag drinnen.
Was kann da noch fehlen?
Grüsse vom
Alain