borrar una linea en .txt

[reyj]

Gracias por la ayuda, pero todavia no entiendo como usar bien la funcion.

open(DATOS,"+<ganadores.txt") || die "No pudo abrirse: $!";
while ($valores=<DATOS>)
{
chomp ($valores);
@parametros = split(/,/,$valores);
$celular=@parametros[1];
if ($celular!="")
{
$contador=$contador+1;
print "\n Celular # $contador: $celular \n";
$mensaje="Felicidades, usted gano";
print "Enviando a celular: $celular el mensaje $mensaje \n";
#sendSMS($celular,$mensaje);
shift(@parametros);
}


Como ves lo que entiendo es que al usar shift(@parametros); este deberia borrar la linea completa, es decir escribir en el archivo, cuestion que cuando termine de procesar este vacio!

Pero todavia no entiendo bien como hacerlo

Me puedes ayudar por favor

gracias