cgi ile ilgili

aşağıdaki kodda txt dosyasından ekrana veri yazdırıyor....

#!/usr/bin/perl

# dosya2.cgi

print "Content-type:text/html\n\n";

open (DOSYA, "veri.txt");
@veriler = <DOSYA>;
close (DOSYA);

print "<b>Veritabanı içeriği</b><br><br>";

print "<b>İsim - Soyad</b><br>";

foreach $dongu (@veriler) {
($isim, $soyad) = split (/\|/, $dongu);
print "$isim - $soyad<br>";

}


içeriği aşağıdaki gibi olan böyle bir dosyada bir satırı silebilmek için nasıl bir kod yazmam gerekir yardımınıza teşekkür ederim


SONY|$|352|1||||
LACIE|€|515|1||||
Apple|€|1601|1||||
Kameralar|$|25|1||||
Kameralar|$|25|1||||
Kameralar|$|25|1||||