Como quitar columnas de un fichero de texto

Supongamos que tenemos un gran fichero de texto y queremos quitarle unas columnas (me ha ocurrido hoy mismo).

Creo que la forma más sencilla es con Perl:

Leemos el fichero de entrada línea a línea, pero escribimos en el fichero de salida todo menos las columnas que no nos interesan.

$fichero="origen.txt";
open(FICH, $fichero) or die("Error al abrir el fichero");
open(SALIDA, ">destino.txt");
while(<FICH>){
    $linea=$_;
    $basura=substr($linea, 0, 10);
    $texto=substr($linea, 10, 100);
    printf SALIDA $texto;
}
close FICH;
close SALIDA;

Saludos.