filtering - Interpolate the noisy data

I have some noisy data

data = Uncompress[FromCharacterCode[
   Flatten[ImageData[Import["http://i.stack.imgur.com/RZcpj.png"],"Byte"]]]]

Plot looks like this

There is noise in certain region, it occured because of the overflow and underflow of the mathemtica.

I used GuassianFilter such as

Table[Show[ListPlot[
   Select[
    GaussianFilter[
     Select[data, 0.00005 > # > 10^-8 &], l], 
    0.00005 > # >= 10^-8 &], Frame -> True, Axes -> False, 
   FrameTicks -> None, Joined -> True, PlotStyle -> Red, 
   ImageSize -> 300], ListPlot[data]]
 , {l, 0, 30, 5}]

Above figure shows, filtering the data by increasing the filtering size. As I increase the value of the filter, it change data that I do not want to change the shape of the plot

Any advice for smoothing the data?

Here is another example data2,

data2=Uncompress[FromCharacterCode[
  Flatten[ImageData[Import["http://i.stack.imgur.com/WYcxd.png"],"Byte"]]]]

Answer

For impulsive noises, you are probably better off with a Median filter than with a Gaussian Filter, since it is better able to remove the effect of outliers.

data = Uncompress[FromCharacterCode[
   Flatten[ImageData[Import["http://i.stack.imgur.com/RZcpj.png"],"Byte"]]]];
smoothed = MedianFilter[data, 5];

Show[ListPlot[data], ListPlot[smoothed, PlotStyle -> Green]]

And here is the same filtering applied to your second data set:

data2 = Uncompress[FromCharacterCode[
   Flatten[ImageData[Import["http://i.stack.imgur.com/WYcxd.png"], "Byte"]]]]; 
Show[ListPlot[data2], ListPlot[MedianFilter[data2, 5], PlotStyle -> Green]]