dati = 
        ReadList["C:\Documents and \
Settings\Ric\Desktop\Mathematica\1.txt", Number];

    dati // Short

M = 
        Table[{dati[[i]],  dati[[i + 1]]},  {i, 1, 1999, 
            2}];

y = M[[All, 2]];

ListPlot[
      y]

trasformata = 
        Fourier[y];

(* 
      Grafico della trasformata di Fourier di y *) 
ListPlot[Abs[N[trasformata]], PlotJoined -> True, 
      PlotRange -> {{0, 60}, {0, 1}}]

inverso = 
        InverseFourier[trasformata];

ListPlot[
      Re[inverso]]

For[i = 1, i < 1000, i++, If[Abs[N[trasformata[[i]]]] > 0.2, 
              trasformata[[i]] = 0 ,    ]];

ListPlot[
      Abs[N[trasformata]], PlotJoined -> True, 
      PlotRange -> {{0, 60}, {0, 1}}]

(* 
      Calcola la trasformata inversa senza il picco *) 
inverso2 = InverseFourier[trasformata];

ListPlot[
      Re[inverso2]]

Export["C:\Documents and \
Settings\Ric\Desktop\Mathematica\Rumore_1.dat",  
      Re[inverso2]]