ListLinePlot[data=Import["http://exampledata.wolfram.com/osas.edf.gz",{"RecordsData",12,1}],PlotRange->All]

WaveletScalogram[ContinuousWaveletTransform[data]]