# Cambiamos el valor de pitch en el archivo_parámetros.
for $i (-4..0){
open (PARAMS, "PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";
for $line (<PARAMS>){
$line  =~ s/(=.\d+/$i)/ or die "No se pudo cambiar el pitch:$!";
  }
close PARAMS;
open (OVERWRITE, ">PARAMS.in");
print OVERWRITE "$line \n" or die "No se pudo sobreescribir PARAMS:$!";
close OVERWRITE;
#Corre el programa prepro y genera un archivo input para FAST.
system ("c:\\perl\\bin\\perl prepro.pl PARAMS.in FAST.template $i.in") or die "No se pudo crear input para FAST: $!";
}

# Cambiamos el valor de pitch en el archivo_parámetros.
for $i ( -4..0 ) {

    # Lugar donde almacenamos el fichero leído y modificado
    my @params;

    # Abrimos el fichero en lectura
    open (PARAMS, "<PARAMS.in") or die "No se pudo abrir PARAMS.in: $!";

    # Para todas las líneas del fichero, hacemos el cambio
    for $line (<PARAMS>) {
        $line  =~ s/=.*\d+/= $i/ or die "No se pudo cambiar el pitch:$!";
        push @params, $line;    # Almacenamos la línea, cambiada o no
    }

    close PARAMS;

    # Grabamos el resultado
    open (OVERWRITE, ">PARAMS.in") or die "No se pudo sobreescribir PARAMS:$!";
    print OVERWRITE @params;
    close OVERWRITE;

    # Corre el programa prepro y genera un archivo input para FAST.
    system ("C:\\perl\\bin\\perl.exe prepro.pl PARAMS.in FAST.template $i.in")
        or die "No se pudo crear input para FAST: $!";
}

system ('C:\perl\bin\perl.exe', 'prepro.pl', 'PARAMS.in', 'FAST.template', "$i.in") == 0
        or die "No se pudo crear input para FAST: $!";