#!/usr/bin/perl

#
e_id="10.20";
#
#
open (DATABASE, "mybase.txt");
while (<DATABASE>)
{
$row = $_;
chop $row;
($id2, $status, $fromemail, $efrom,) = split(/\|/, $row);
if ($form{'e_id'} ne $id2)
{$new_row .= "$row\n";}
}
close (DATABASE); 


#writing  the '$new_row' to the textfield:<p>

open (DATABASE, ">mybase.txt");
 print DATABASE "$new_row";
  close (DATABASE);