Plot[(0.2 + Sin[x])*Sin[100*x], {x, 0, 10*Pi}]

data = Table[N[(0.4 + Sin[i/10])*Sin[10*i]], {i, 0, 100*Pi}];

f = Abs[Fourier[data]];

ListPlot[f, PlotRange->All, Joined->True]