[PERL]Aiuto programma in perl

[m1ster_b1t]

Ciao a tutti, sto facendo un Bot IRC in perl ,questo bot fa in modo da poter registrare delle richieste degli user , le elenca ,e le dovrebbe eliminare, solo che il mio problema sta nella parte dell'eliminazione della richiesta ora copio il code....

#Bot Richieste
	
	if ($line =~ /\!richiedo\s+(.*?)\s+(.*)\s+(\d+)\s+(.*)/){
	my $nickadd = $1;
    my $richiestadd = $2;
    my $annoadd = $3;
    my $datadd = $4;
	sleep(1);
	 if (my $pid = fork) {
    waitpid($pid, 0);
  }
  else {
    if (fork) {
      exit;
    }
    else {
      open(SUKA, '>>', "richieste.db");
      print SUKA "$nickadd§$richiestadd§$annoadd§$datadd\r\n";
      close (SUKA);
      print $sk "PRIVMSG $canale2 :7.::9(8Richieste9)7::.7.::10 $nickadd ha richiesto 7.::9(6 $richiestadd dell'anno $annoadd 9)7::. richiesto il9 $datadd\r\n";
      print $sk "PRIVMSG $canale2 :7.::9(8Grazie4 $nickadd 9)7::.10,NoN Appena La richiesta sara soddisfatta, Verra Inserita Nelle Richieste Soddisfatte\r\n";

exit;
    }
  }
}

if ($line=~/\!elenco/) {
sleep(1);
if (my $pid = fork) {
  waitpid($pid, 0);
}
else {
   if (fork) {
     exit;
   }
   else {
   open(SUKA , "richieste.db");
   while ($_ = <SUKA>) {
     my $cont = 0;
     my @info=split(/\§/,$_);
     my $nick2= @info[0];
     my $richiesta22= @info[1];
     my $anno22= @info[2];
     my $data22= @info[3];
      print $sk "PRIVMSG $canale3 :-----------------------------------------------------------------------------------------\r\n";
      print $sk "PRIVMSG $canale3 :8.7::4( Nick 4)7::8. $nick2\r\n";
      print $sk "PRIVMSG $canale3 :8.7::4( Ha richiesto 4)7::8. $richiesta22\r\n";
      print $sk "PRIVMSG $canale3 :8.7::4( data uscita della richiesta 4)7::8. $anno22\r\n";
      print $sk "PRIVMSG $canale3 :8.7::4( Ha effettuato la richiesta Il 4)7::8. $data22\r\n";
      print $sk "PRIVMSG $canale3 :8.7::4( Stato 4)7::8.4 richiesta ancora non soddisfatta da parte dello staff\r\n";
      print $sk "PRIVMSG $canale3 :-----------------------------------------------------------------------------------------\r\n";     

}
   close (SUKA);
   exit;
  }
}
}

if ($line=~/\!cerca\s+(.*)/) {
my $ricerca = $1;
my $cont = 0;
print $sk "PRIVMSG $canale3 :8.7::4( Ricerca 4)7::8. $ricerca\r\n";
open(SUKA , "richieste.db");
while (<SUKA>) {
     my @info=split(/\§/,$_);
     if ($info[0]=~/$ricerca/i) {
	 if ($info[0] == @info[0]) {
        $cont++;
        print $sk "PRIVMSG $canale3 : .:( Trovato ):. $info[0]\r\n";
        print $sk "PRIVMSG $canale3 :-------------------------------------\r\n";
        print $sk "PRIVMSG $canale3 : .:( Richiesta ):. $info[1]\r\n";
        print $sk "PRIVMSG $canale3 : .:( Anno ):. $info[2]\r\n";
        print $sk "PRIVMSG $canale3 : .:( Data della richiesta ):. $info[3]\r\n";  
        print $sk "PRIVMSG $canale3 :-------------------------------------\r\n";      
     }

if ($cont == 0 ) {
print $sk "PRIVMSG $canale3 :8.7::4( Nessun Risultato 4)7::8.\r\n";
}
else {
print $sk "PRIVMSG $canale3 :8.7::4( Ricerca Terminata 4)7::8.\r\n";

}
close (SUKA);
}
}
}


if ($line=~/\!elimina\s+(.*)/){
my $ricerca = $1;
my $cont = 0;
open(SUKA , "richieste.db");
open SUKA2,">richieste.temp";
while ($_ = <SUKA>) {
     chomp($_);
     my @info=split(/\§/,$_);
     if ($info[0]=~/$ricerca/i) {
	 
        $cont++;
     }else {
     print SUKA2 "$info[0]§$info[1]§$info[2]§$info[3]§$info[4]";
     }
	 }
if ($cont == 0 ) {
print $sk "PRIVMSG $canale3 :8.7::4( Nessun Risultato 4)7::8.\r\n";
system("del richieste.temp");
}
else {
print $sk "PRIVMSG $canale3 :8.7::4( Eliminato 4)7::8. $ricerca\r\n";
system("copy richieste.temp richieste.db");
system("del richieste.temp");
}
close (SUKA);
close (SUKA2);
system("del richieste.temp");
}
}

Come dicevo prima il problema sta nella parte dell'elimina, faccio un esempio per capire cosa succede:
all'interno di richieste.db vengono inserite le richieste in questo modo

mister§film§2008§23/12
m1k1fu0r1§stocazzo§1990§12/23
mister_bit§film2§2008§23/12

Ma il problema sta che quando io digito !elimina mister lui lo trova e elimina le informazioni ma mi cambia la disposizione delle rimanenti all'interno del file richieste.db tipo:

m1k1fu0r1§stocazzo§1990§12/23
mister_bit§film2§2008§23/12

le rimanenti sul file richieste.db risultano poi cosi messe una dietro laltra e quindi non me le riconosce piu se digito !elenco.
Come posso fare per risolvere?