Limpiar Cadenas

[MeXiCaN]

Hola tengo este código:

#! C:\strawberry\perl\bin\perl.exe

sub limpiar_contenido{
local (*cadena) = @_;
substr($cadena,24); #Corto la linea a partir del caracter 24
if ($cadena == "comparacion") # si la cadena es igual a comparación no devuelvo nada
{
return;
}
else
{
$cadena >> "fichero salida"; #si la cadena es diferenta a comparación la añado en un fichero de salida.
}
return;
}

my $file = "fichero a abrir";
open(ENTRADA, "<$file") || die "no se puede abrir el archivo\n";
while ($linea =<ENTRADA>) {
limpiar_contenido(*linea);
}
close(DATA);

Sin embargo no hace nada y tampoco me da ningún tipo de error. ¿Alguien ve el error? (Soy novato con perl)

Saludos y gracias.